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PREFACE 


It was with some hesitation that I let myself be persuaded by the 
publishers to write this book. There are numerous books on 
Programming Languages - published in India as well as abroad - and a 
number of them are very good. As it took shape, however, the present 
volume evolved into something quite different from most of these and, 
at least in the sense, justified itself. 

А computer user has today to be content with looking upon the 
machine and the language in which he writes his programs merely as 
tools which help him achieve his objective in the field of his 
interest. It is, of course, possible to get on with little more than 
Superficial familiarity with a tool and instructions on how to use it. 
However, an appreciation of the nature of the tool, its structure, 
construction and manner of operation puts the user in a considerably 
better position to use even a simple tool more efficiently. All too 
often, the user of a computer language is deprived of this facility 
because of the type of books he has access to. This, again, is due to 
the dichotomy between books written for the computer scientist and 
those intended for the user of the machines. Providing a little more 
depth and breadth to the knowledge base of the computer user would be 
beneficial, to say the least. 

Rather than present a programming language purely descriptively, 
it would be desirable to develop the underlying concepts logically and 
Systematically. This book is an attempt in this direction. 

The book begins with a brief introduction to the internal structure 
of computers and their operation, cites a few simple examples of 
machine langüage programming comparing them with instructions to be 
given to a human comptist for him to perform the desired computations. 
These instructions are, in fact, adaptations of programs written in 
programming languages (e.g. COBOL, and BASIC) and bring home the 
Similarities between natural and artificial languages. 

The second chapter introduces the concept of algorithms, 
describes their features and essentially derives from these the 
requirements of a language that can be used to describe algorithms, 
describes their features and essentially derives from these the 
rquirements of a language that can be used to describe algorithms. 
This forms the basis for understanding the need for artificial 
languages and their syntax, the hierarchy of machine languages, the 
operation of compilers and assemblers and the structure of computer 
programs. 

Chapters 3 to 9 describe FORTRAN IV. Here again, rather than 
present each aspect piecemeal, a general and rapid overview of the 
language is provided to start with and followed by detailed 
discussions on individual features. The illustrative examples have 
been so chosen as to require a minimum of mathematical skill and 
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technical background. Only knowledge of elementary algebra and a 
nodding acquaintance with matrix manipulations are required. These 
simple examples, it is hoped, will clearly illustrate computer 
programming essentials and not let them be obscured by the 
complexities of very involved mathematics, physics, and so on. 

To make a presentation of a programming language purely 
sequentially is as difficult as writing a program without recourse to 
transfers of control, branches and loops. For this purpose cross 
referencing is done quite extensively. An attempt has been made to 
avoid, as far as possible, anticipation or forward referencing of 
topics still to be discussed. Also, the presentation has been 50 
organized that each topic is covered in a self-contained manner, with 
some repetition where it helped achieve this objective. 3 

A chapter has been included on common errors in programming апа 
how to avoid them, debugging techniques, space and time efficiency pete 
the pitfalls involved and good programming style. These, pap Pen 
topics which are neglected in the case of beginners, in the шады 
books. 

Chapter 10 is a detailed treatment of FORTRAN-7T. —" 

A number of topics exist which are not necessarily central ester 
subject matter, but understanding these would be of help to efe ce 
to understand it better, e.g. number systems, Boolean a A ЯР 
«шага, assemblers, structured programming, etc. qnem 
included as appendices. i i 

The Ваве та intended for students of mathematics, oim. 
technology and engineering at the graduate and postgraduate social 
With the increasing appreciation of the use of computers in E nts of 
Sciences, it is hoped that it will be useful even тог Gees 
these disciplines. n Appendix 

Some other additions made in this second edition dm Ed simpler 
covering numerical analysis fairly extensively and а TRAN The last 
Pictorial notation for explaining the syntax of dpt " expressed 
mentioned echange was introduced in response to the ni on thought 
by many students and teachers that the Backus - Naur "O^? T. 15 поред 
precise, is not very easy for the beginner to master to learn. 
that the new pictorial notation will be helpful and € to Exercises 

Again as suggested by readers, answers and hints ightforward 
have been provided at the end for all but the most strai& 
problems, t and 

The explanatory style has been improved throughout the ү ше 
extensive changes have been made to make the language simpler 4 
concepts easier to understand. will 

It is hoped that these changes, extensive that they аге, 
further enhance the value of the book. 


p.v. 5. RAO 
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Chapter 1 
GENERAL BACKGROUND 


1.1 INTRODUCTION 


The general purpose electronic digital computer is basically a 
calculating machine, capable of performing the operations of addition 
and subtraction, and usually also multiplication and division, Its 
widespread use is due to its power and flexibility. The main forte of 
the computer lies in its speed, precision and reliability. A modern 
computer сап perform millions of arithmetic operations in a second, 
It сап earry out computations easily with numbers which are up to 16 
digits. It hardly ever fails in continuous operation, The 
flexibility of the computer is due to its ability to perform a wide 
variety of functions without the need for making any modifications to 
its design or internal structure, 

Computers accept numerical data as input, process this data by 
performing various computations on it and make the results (again 
numerical information) available as output. Thus, they too work in an 
input ~ processor ~ output mode of operation like most other physical 
systems, However, chere are two important ways in which general 
purpose computers differ from other machines (see Fig,1-1). 


(1) No other machine can perform as wide a range of tasks as a 
computer can, 

(2) More importantly, even in machines which are flexible, 
change-over from one type of task to another would require 
making significant changes to their internal structure and 
hardware configuration, The behaviour of such a machine is 
determined entirely by its structure and configuration and 
cannot be changed without modifying the machine itself in 
some way, This is not necessary in a computer, The 
behaviour of computer is governed not merely by its 
structure and construction but, more importantly, by the 
"instructions! given to it. 


Such sequences of instructions, which are given to the 
computer to specify its behaviour are termed 'programs', Any complex 
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Internal Structure 


Process 


Input Output 


Machines in general : Their behaviour is governed by 
their internal structure. To modify behaviour, 
it is necessary to change their internal structure. 


Program 


Input Output 


Computers : Their behaviour is governed by the program 
fed to them. Behoviour con therefore be modified by 


changing the program, without changing the internal 
structure. 


Fig.1-1. Contrast between computers and other machines. 
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calculation can be performed by a computer if it can be split up into 
a program of simple instructions that the computer can follow. The 
same machine can, for instance, be used for income tax calculations, 
weather predictiion, nuclear reactor design, playing chess, or 
controlling a multistage rocket system for a satellite launch 
Operation, 

Writing computer programs for complex problems could prove to be 
extremely difficult, if such programs were to be written using only 
the very basic arithmetic operations and other simple functions 
that computers can perform. The main difficulty here is one of 
splitting up complex mathematical operations into a large number of 
simple and small steps. Imagine having to calculate a polynomial 
consisting of trigonometric functions using only addition, 
subtraction and so on, without recourse to mathematical tables. A 
further difficulty is that the instruction codes for computers 
constitute a language which is artificial, unfamiliar and 
inconvenient to use. It would be convenient if computers could 
accept programs written in terms of more complex mathematical 
operations using a conventional mathematical notation with which 
the user is much more familiar. This is possible with computers 
today. Programs are written in'high level languages' specially 
designed for the purpose. Several such languages are available, each 
intended for one or more specific type of use and area of application. 
The computer, using other programs called 'compilers', first 
translates programs written in such high level languages into low 
level languages: sequences of machine instructions. These are 
then executed by the machine. 

The design of high level languages and the realization of 
compilers for translating programs written in these languages into 
machine instructions enable the user to avoid the tedium of 
writing his programs in the machine language. They also help him 
by making his programs 'transportable' or usable on practically 
any type of machine, since compilers for the more popular languages 
are available on most machines. 3 

FORTRAN (FORmula TRANSlator), one of the. earliest апа one 
of the most widely used languages, is designed to be specially 
suitable for programming problems in engineering, technology and 
Science. As the language developed over the years, a number of 
different versions came intouse, the later ones being more 
advanced than the earlier ones. FORTRAN II and FORTRAN IV are 
the most popular among these. The aim of the present book is 
to give the reader a good working knowledge of FORTRAN тү 
and a brief introduction to FORTRAN 77. 
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1.2 BASICS OF DIGITAL COMPUTERS 


It is possible to acquire the skill to use FORTRAN or any other high 
level language without an exposure to computers, their internal 
structure and operation, however, familiarity with these machines 
helps to understand these languages more easily and appreciate their 
rules and conventions, which might otherwise appear to be very 
arbitrary. In this section, we shall attempt to acquire this 
background, For ease of understanding, a number of simplifications 
have been made in this presentation, These would be obvious to persons 
familiar with computers and would not interfere with the general 


understanding of these machines that a FORTRAN programmer might like 
to acquire, 


CENTRAL PROCESSOR 


CONTROL 
UNIT 


OUTPUT 
UNIT 


ARITHMETIC 
UNIT 


Fig. 1-2. Block diagram of a Computer 
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Fig. 1-2 shows a schematic diagram of a general purpose computer, 
The major subsystems of a computer, as indicated in the diagram, are 
the input unit, the memory unit, the arithmetic unit, the output unit 
and the control unit. These units are interconnected using two 
different types of pathways. The thick lines in the figure represent 
the data pathways along wnich the data or operands (numbers) are 
transferred from one unit to the other. Control signals which cause 
the units to take various types of action are transmitted along the 
control paths, which are represented by thin lines. Information flows 
only in one direction along some of these paths while along other 
paths it flows in both directions. Arrows indicate the direction of 
flow of information in either case. 

Let us first consider tne flow of data (the thick lines). 
Instructions and data are fed to the computer through the input unit. 
They go from there into the memory. In some cases, this information 
flow takes place through the arithmetic unit, but we shall ignore this 
in our discussion for the sake of simplicity. The arithmetic unit 
processes the data according to the instructions given, For this 
purpose, it needs to accept information from the memory as well as 
feed the results into it. This is indicated by the two-way path 
conneoting these two units. The results of the computation are 
transferred (from the memory) to the outside world through the output 
unit. In some cases, this transfer takes place through the arithmetic 
unit but, for the sake of simplicity, we shall ignore this. It is 
necessary for some unit to control all these units appropriately and 
ensure that they operate in a suitably coordinated manner. This 
function is performed by the control unit. For this, it has to send 
appropriate control signals to these units as well as to receive 
acknowledgements and replies from them. The control unit therefore 
has two-way communication with each of the other units. 

In the following sections, we shall study the operation of these 
units in a little more detail. 


1.2.1 The Input Unit 


Information (programs and data) is fed into the computer using 
devices such as punched сага readers and punched paper tape readers, 
Electrical typewriters and teletypes can also be used for feeding 
information into the computer. Video terminals are also used now a 
days. Modern computers use input devices such as optical character 
readers for printed, typed or handwritten texts and optical seanners 
for pictorial information. 
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Input деуіссв communicate with the arithmetic unit, the memory 
unit or both, We shall, however, assume that communication takes 
place only with the memory unit, When a coded instruction for input 
is given along the control lines, one or more words of information are 
accepted from the appropriate input device into the memory unit, To 
make this possible, it is necessary to,supply simultaneously the 
proper instruction code to the input unit as well as the memory unit 
on the control lines, The address of the location(s) where this 
information is to be stored should also be supplied on the data lines, 


1.2.2 The Memory Unit 


Computers are automatic in operation, i.e, they are capable of 
performing complex sequences of arithmetic operations without 
Step-by-step human intervention, It is, therefore, necessary for them 
to store internally: 


(1) the program or sequence of instructions specifying the 
operations they are required to perform, 

(2) the data on which these are to be carried out, and 

(3) intermediate results 


The memory unit performs this function, It is capable of storing 
the instructions and/or data in a large number (16000 or more) of 
sequentially numbered pigeon holes or ‘locations,’ The numbers stored 
in a memory location are its contents, A memory location сап be 
'ассезвед! (or made available for storage or retrieval of numbers) by 


specifying the 'address! of the location (or the serial number of the 
pigeon hole). 


A number сап be written into a memory location or retrieved from 
it in a fràction of a microsecond, This can be done by supplying a 
store or retrieve instruction code to it along the control lines and 
the address of the location along the data lines, For an input 
instruction, the information taken in from the input unit and to be 
stored into the memory should also be supplied to the memory unit on 
the data lines, In the case of an output or print instruot 
memory unit supplies the number that has been retrieved 
specified location in che memory, again on the data lines 
ean be printed or displayed on the output unit, ы 

Each memory location, being fixed in size, 
sequence or string of a fixed number of digits, 
stored in a single memory location (or arithmeti 


ion, the 
from the 
so that it 


can hold init a 
A sequence of digits 
€ register) is called 
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a computer 'word.' The number of digits in a computer word is called 
the 'word length' of the computer. 


1.23 The Arithmetic Unit 


We have already noted that the computer is essentially a calculating 
machine which can perform arithmetic operations, These operations are 
carried out in the arithmetic unit of the computer. Most of the 
arithmetic operations that a computer performs are binary in nature; 
they require two operands. When one of these operands is supplied 
(the other is assumed to be already available) along the data lines 
and a coded instruction (specifying the operations to be performed) 
along the ccntrol lines, the arithmetic unit performs the operations 
of addition, subtraction, multiplication, etc. and retains the result 
within itself. Unary operations (operations requiring one operand, 
such as transferring a number from the arithmetic unit to the memory 
unit or vice versa, finding the absolute value of a number and 
changing the sign of a number) are also possible. Even for these 
Operations, the coded instruction is supplied along the control lines. 
Depending on the instruction, an operand is Supplied to the arithmetic 
unit along its data input lines or accepted from its data output 
lines. Where the instruction requires neither data input nor output, 
none is attempted. 

The arithmetic unit thus needs to store or retain within it at 
least one number. In most machines, there is provision for storing 
several numbers. These are stored in devices called 'registers' іп 
the arithmetic unit. 

Since only numbers сап be represented in the computer, even the 
sign is coded into a digit : zero might represent minus sign and one, 
plus. The magnitude of numbers that can be operated upon depends on 
the number of digits that a register (ог a memory location) can hold. ` 
This varies from machine to machine and is typically between 5 and 16 
decimal digits. Even larger numbers can be operated upon by using a 
double or multiple precision representation, where several registers 
or memory locations are used to accommodate a number. 

In the simplest case, numbers are represented in the computer as 
integers with, of course, the sign. А 'floating-point' notation is 
used for representing fractions and large numbers. (Details of the 
floating point notation have been dealt with in later Sections.) 

In contemporary computers, addition and subtraction take less 
than a microsecond (one millionth of a second) each. Multiplication 
and division take a somewhat longer time. 
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1.2.4 The Output Unit 


The output unit makes the results of a calculation available to the 
user, This is carried out using paper tape punches, line printers, 
video terminals, electric typewriters, teletypes and so on, Modern 
computers also use plotters and video displays for the output of 
pictorial information. When a coded output instruction is given along 
the control lines, one or more words of information is transferred 
from the memory unit into the appropriate output device. To make this 
possible, it is necessary to supply simultaneously the proper 
instruction code to the output unit as well as to the memory unit on 
the control lines. The address of the location(s) from which this 
information is to be retrieved has also to be supplied to the memory 
unit. Operation of input and output devices involves mechanical 
manipulations in general and is considerably slower than the Speed of 
computation in the machine. 


1.2.5 The Control Unit 


We have seen how the arithmetic unit, the memory unit and the input- 
Output units Operate. Appropriate data and control signals have to be 


Supplied to these units for them to perform the various functions 
required for the о 


control unit to 

arrange that the 

then, 

this is done, 

Оп which they ar » the sequence of instructions and the data 
9 to be performed are both stored in the memory unit. 


m 

ты қарақ Rd emory determines how large the address has 

(00000 to 99999), a five di 
The order and the ada 


. For binary o 


S, one operand is ass 
nit ( 
unit first, using a transfer ins 
implies: Add (11 being the code f 


in memory location 423 and the numb 
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and leave the result in the arithmetic unit. Other instructions can be 
similarly interpreted. Since three digits have been provided for the 
address, the memory capacity can be only 1000 locations or less. 

Instructions are stored in sequence in contiguous locations of 
the memory. The control unit extracts an instruction from any 
specified starting location and decodes the order. Depending on this, 
it signals the appropriate unit and provides the required information. 
For example, if the instruction to be executed is 'add 123', it 
signals the arithmetic unit that the operation to be performed is 
addition. It also signals the memory unit that a retrieval is to be 
performed, supplies the address 123 to it and transfers the contents 
of location 123 to the arithmetic unit so that the addition can be 
performed. For an input from paper tape instruction (01 146 say) it 
signals the paper tape unit to read a word, transfers the information 
received to the memory, signals that this information is to be stored, 
and supplies the address 146, specifying location where this 
information is to be stored. 

After an instruction (contained, say, in location 004) is 
executed, the control unit automatically obtains the instruction from 
the next location (005 in this case), decodes and executes it, goes to 
the next location (006) and so on, till it encounters a stop 


instruction. Thus, once started, the machine automatically executes a 
sequence of instructions. 


Example 1-1 


To illustrate these concepts, let us examine the following trivial 
program (given in Table 1-1) step-by-step. 

This program causes the computer to read three numbers, (say A, 
B, C), compute the value [(A-B).C], type the result on the teletype 
unit and stop. The number A could be the quantity of a commodity 
Stored in a warehouse, B the quantity damaged during storage and C the 
Sale price per unit. The machine then prints the value of stock still 
held. à 

A jump instruction causes this sequence to be broken, For 
example, jump 014, stored in location 006, causes the computer to 
obtain its next instruction from location 01! and not from location 
007. Subsequent instructions are obtained from locations 015, 016 and 
so on, till another jump is encountered. 
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Example 1-2 


In the program illustrated in Table 1-1, let us substitute the stop 
instruction by a jump instruction (30 123 signifying jump to location 
123). After the value of the stock is printed, control goes to 
location 131, encounters the jump instruction and consequently jumps 
to location 123, repeating the process. Three new numbers (A', B', С" 
say) for another commodity are read, the value ГА" - B').C'] is 
printed on the teletype and so on in a ‘loop! repetitively, till the 
tape runs out or the machine is stopped externally. 


Table 1-1 A Program Written In Machine Language 


Location Contents Operation done by computer 


(Instruetion) 


Order Address 
part part 


123 01 200 Read number from paper tape and store 


it in location 200. 


124 01 201 Read number from Paper tape and store 
it in location 201. 

125 01 202 Read number from paper tape and store 
it in location 202. 

126 10 200 Transfer contents of location 200 
into arithmetic unit. 

127 12 201 Subtract contents of location 201 


from contents of arithmetic unit and 
leave result in arithmetic unit, 

128 13 202 Multiply contents of location 202 
with contents of arithmeti 


е unit and 
leave result in arithmetic unit, 
129 20 200 ^ Store contents of arithmetic unit in 
location 200. 
130 02 200 Retrieve contents of location 200 апа 
print on teletype, 
131 00 - 


Stop. 


aum Ld 
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How сап we make the machine come out of the loop after going 
through it a number of times? It can be made to choose between two or 
more pre-specified alternative courses of action depending on 
intermediate results or externally-fed data. This is achieved by the 
conditional jump instruction. Here, a jump is executed only when a 
specific condition is satisfied (e.g. when the result of a computation 
is positive, negative, zero, etc.) If the condition is not Satisfied, 
the regular sequence is followed and the instruction in the next 
location is executed. Let us see how this helps the computer to get 
out of a loop of the type encountered in Example 1-2. 


Read, 
process 
and 


Read, 
Process 
and 


print 


print 


Is A-B 
negative 


Example 1-1 Ехатріе1-2 Ехатріе 1-3 


Fig. 1-3 Flowcharts -for Examples 1-1,1-2 апа 1-3 
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Let us insert a conditional jump in the program given in Table 1-1. 
Let location 131 contain a conditional 'jump on positive’ instruction 
(31 123, specifying a jump to location 123 if the result of the 
earlier computation is positive) and location 132 a stop instruction, 
As before, by the time the instruction in location 130 is executed, 
the arithmetic unit still contains the value [(A-B).C] of the 
commodity last processed. If this is positive, control gets 
transferred to location 123 and the machine repeats the process, 
processing 3 more numbers each time. The first time that this value is 
negative or zero, the condition for the jump is not satisfied and the 
jump is inoperative. The regular sequence is followed and control goes 
to the next instruction contained in location 132; the computer stops. 

This facility can be used to stop the machine after all the 
commodities are processed. In real life, the quantity damaged can 
never be more than the original stock (B > A). At the end of the list 
of quantities and rates for all the commodities of interest, an 
additional set of entries can be made on the paper tape for a 
fictitious commodity where В is greater than А. The machine would then 
come to a stop after processing all the commodities, on encountering 
this situation where the jump condition is not satisfied, 

Lest it should mislead, we must remember that the above example 
is too trivial for actual use on a computer, Also, many 
simplifications have been made, keeping only the essentials of the 
machine intact. 


1.3 THE HUMAN ANALOGY 


The above description of a computer suggests a broad analogy between 
the computer and a human 'clerk'. The written or oral instructions 
given to him can be likened to the program and data fed as input to 
the computer, The memory unit performs the function of his work 
Sheets, The arithmetic unit can be compared to the desk calculator 
used by the clerk, The results are written down or spoken out by him, 
33 by the output unit of the computer. In interpreting the 
instructions ang performing the necessary manipulations, the control 


unit of the computer performs in a manner broadly similar to the 
clerk's brain. 


Writing a progr 
meticulous апа inf 
Ўабе11івепсе, origi 


am for a computer is similar to instructing a very 
allible clerk who, however, totally lacks 


n nality or even common sense, Like him, the computer 
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does exactly what it is instructed to do; nothing more. Each 
eventuality has to be foreseen and provided for by the programmer, 
There should be no scope for ambiguity or vagueness in the 
instructions, which should be clear and specific to the last detail. 


Example 1-4 


Let us consider a situation where a clerk in ап income tax office is 
required to calculate the tax payable by each assessee and prepare 
demand or refund notices. For ease of understanding, we shall assume a 
very simple tax structure. He has a file of income tax Statements 
(each of which is called a TAX-STATEMENT-RECORD) and has to transfer 
the prepared notices (each of which is called a DEMAND-NOTICE-RECORD) 
to the DEMAND-NOTICE-FILE. 
Tax is payable on TAXABLE-INCOME which is : 


(INCOME-FROM-SALARIES) 4 (OTHER-INCOME) - (ALLOWABLE-DEDUCTIONS) 


The tax-rates are: for the first slab (income less than 
Rs.10,000) the tax payable is 10% of TAXABLE-INCOME; for the second 
Slab (income between Rs.10,000 and 20,000) the tax payable is 
Rs.1,000+20% of excess over Rs.10,000; for the third slab (income over 
Rs.20,000) the tax payable is Rs.3,000 +40% of excess over Rs.20,000, 

Let us visualize the Sequence of instructions that are to be 
given to this clerk. We shall call this sequence a 'procedure!, 

The records in the two files have the following entries: 


TAX-STATEMENT-FILE 
TAX-STATEMENT-RECORD 
ASSESSEE-PARTICULARS 
NAME-OF-ASSESSEE 
ADDRESS-OF-ASSESSEE 
INCOME-FROM-SALARIES 
OTHER INCOME 
ALLOWABLE-DEDUCTIONS 
TAX-DEDUCTED-AT-SOURCE 


DEMAND-NOTICE-FILE 
DEMAND-NOTICE-RECORD 
ADDRESSEE-PARTICULARS 
NAME-OF-ADDRESSEE 
ADDRESS-OF-ADDRESSEE 
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TOTAL-TAX-PAYABLE 
TOTAL-TAX-PAID 
ARREARS-DUE 
REFUND-PAYABLE. 


The procedure is detailed below: 


OPEN TAX-STATEMENT-FILE. 
OPEN DEMAND-NOTICE-FILE. 
TAX-ASSESSMENT. 
READ ONE RECORD FROM TAX-STATEMENT-FILE 
AT END (OF FILE) GO TO END-OF-PROCESS. 

ADD INCOME-FROM-SALARIES TO OTHER-INCOME 
GIVING TOTAL-INCOME 

SUBTRACT ALLOWABLE-DEDUCTIONS FROM TOTAL-INCOME 
GIVING TAXABLE-INCOME. 

IF TAXABLE-INCOME IS LESS THAN EXEMPTION-LIMIT 


MOVE ZERO TO TAX-CALCULATED 
ELSE 


IF TAXABLE-INCOME IS LESS THAN 10000 
COMPUTE TAX-CALCULATED - TAXABLE-INCOME * 0.10 
ELSE 
IF TAXABLE-INCOME IS LESS THAN 20000 
COMPUTE TAX-CALCULATED - 
1000 « (TAXABLE-INCOME - 10000) * 0.20 
ELSE 
COMPUTE TAX-CALCULATED = 
3000 + (TAXABLE-INCOME - 20000) * 0.40. 
DEMAND-NOTICE-PREPARATION. 
MOVE ASSESSEE-PARTICULARS TO ADDRESSEE-PARTICULARS 
MOVE TAX-CALCULATED TO TOTAL-TAX-PAYABLE 
MOVE TAX-DEDUCTED-AT-SOURCE TO TOTAL-TAX-PAID. 
IF TAX-DEDUCTED-AT-SOURCE LESS THAN TOTAL-TAX-PAYABLE 
SUBTRACT TAX-DEDUCTED-AT-SOURCE 
FROM TOTAL-TAX-PAYABLE 
GIVING ARREARS-DUE 
ELSE 
SUBTRACT TOTAL-TAX-PAYABLE 
FROM TAX-DEDUCTED-AT-SOURCE 
GIVING REFUND-PAYABLE. 
TRANSFER PREPARED-RECORD TO DEMAND-NOTICE-FILE 
GO TO TAX-ASSESSMENT 
END-OF-PROCESS 
STOP PROCESS. 
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The above procedure illustrates some of the salient aspects of 
writing programs for computers. 

The process starts with the clerk reading one RECORD (or 
statement) from the TAX-STATEMENT-FILE. He is then required to perform 
Some computations. Each imperative sentence in the sequence is an 
instruction to the clerk and is called a statement. The quantities on 
Which the computations are to be performed are referred to by the 
names of the entries in the records. The names referred to may exist 
in the record from which data are available (the input record), or in 
the record on which the results are to be filled (the output record). 
There may, in addition, be names which do not occur in either record 
(e.g. TAX-CALCULATED). These are intermediate results, which are also 
given names to permit reference to them. The clerk will use a work 
Sheet where he Will enter these names and the values of the quantities 
against the names, 

The MOVE statement tells the clerk to copy the value of one 
quantity as the value of another. 

The statement 


"SUBTRACT A FROM B GIVING c" 


tells him to compute (B-A) and enter this as the value of C. The 
statement 


"COMPUTE X = Y + Z + ..." 


tells him to calculate the value of the expression (Y + Z + ...) and 
enter this as the value of X. The asterisk (*) is used as the 
multiplication sign to avoid confusion with X. 

Some of the computations naturally have to be different from case 
to ease depending on the existing conditions (in this case the tax 
formula depends on the magnitude of the TAXABLE-INCOME), In such a 
case the clerk is required to make a few preliminary checks (through 
the IF statements) and determine which computation is to be done. 
After the required computation is complete, a filled DEMAND-NOTICE- 
RÉCORD is transferred to the corresponding file. 

The statements are grouped into what we might call Paragraphs, 
Each Paragraph has a name or label, e.g. DEMAND-NOTICE-PREPARATION, 
END-OF-PROCESS, etc. Such labels are useful when the regular Sequence 
is broken; the next step (or sequence of steps) can be specified by 
naming the appropriate paragraph (this is analogous to the jump 
instruction in a computer). After one case is disposed off, the clerk 
has to GO TO TAX-ASSESSMENT, which is the first paragraph, and start 
the previous procedure on another record. This process continues till 
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the end of the input file is reached and there are no more records to 
be processed. At (the) END (of file) he has to GO TO the END-OF- 
PROCESS paragraph, which has a single sentence asking him to STOP THE 
PROCESS. Ў 

Some of the steps in the sequence might appear trivial, but they 
are all necessary to avoid ambiguity. 

Having written such a procedure ; how do we test it? We could 
convince ourselves merely by examining it step-by-step. This, however, 
is a tedious process. Better Still, we could assign it to a human 
clerk for a few trial cases. For effective and quick checking, the 
trial cases should be chosen intelligently to exhaust the different 
alternative paths and possibilities, e.g. by taking TAXABLE-INCOME to 
be nil, less than 10,000, between 10,000 and 20,000 and so on. 
Similarly, we could try cases where the tax collected is greater than, 
less than or equal to the tax due. Even for Such a simple problem as 
this, it is obvious that the test procedure is quite involved. For 


more complex problems, it might become Still more difficult to try all 
the alternatives manually. 


A difficulty with procedures 


Written in this form is that they 
are not very easy to grasp. 


: à It requires a major effort to get an 
appreciation of the details of the Procedure. Not much oan be 


understood by superficial visual examination, It is necessary to go 
through the procedure step-by-step. Keeping track of such a procedure 
while writing is also not very easy. 

A flow chart type of representation helps to get over these 
difficulties, For instance, Fig. 1-4a and Fig. 1-4b show a flow chart 
of the procedure of Example 1-4, It is easy to verify the 
correspondence between the two. Such а flow chart brings out the 
essential features and the Structure of the process far more clearly 
and efficiently. It is much easier to follow and verify, Drawing flow 
charts is, however, a laborious process. For this reason, not all 
programmers use flow charts to plan their strategy, However, 


у ‹ at least 
for tne beginner, using a flow chart is very helpful in plannin a 
program. ы 


Example 1-5 


Let из now consider a procedure for calculatin 
& the factorial of 
given number. The factorial of a positive integer N i i ~ 
5 defi 
ans ned as the 
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consecutive (this facilitates the later insertion of statements in 
between, if necessary), The statements are executed in the ascending 
order of statement numbers, except when the sequence is broken by a GO 
TO instruction. 

The procedure has a loop extending from statement 40 to statement 
TO. After initializing the values of F and M to 1 at the beginning, k 
is ineremented by 1 for each traverse of the loop while the value of F 
is the running produet 1.2.3. ... .M. When M equals N, F has tne 
product 1.2.3... .N, i.e. tne factorial F(N). An exit is then made 
from the loop, the value of F is printed and the procedure ends. 

This procedure, it can be seen, will not terminate if N is zero 
or negative and should, therefore, incorporate a check for this 
condition. For brevity however, this and tne subsequent examples do 
nct contain this test. 

The flow chart for this procedure is given in Fig. 1-5. The 
procedure is as follows: 


Step 10 READ (value of) N 
20 LET (initial value of) M = 1 
30 L&T (initial value of) Е = 1 
ДО IF M = N, THEN (go to step) 80 
(otherwise go to next step) 
50 LET (new value of) М = (old value of) М + 1 
60 LET (new value of) Е = (old value of) F # М 
70 GO TO (step) 40 
80 PRINT (value of) F 
90 END 


1.4 BRANCHES AND LOOPS 


One common feature of the flow charts of Fig. 1-4 and Fig. 1-5 
deserves comment. In neither of them is the flow of computation 
Straight from one end to the otner. In both, there are loops which 
have to be traversed a number of times; an exit is made at a branch 
point only if the branch condition is satisfied. 

It would be difficult - almost impossible - to find computer 
Programs which do not have such loops. It is for this reason that the 
conditional jump is the most important instruction ina computer, 

In the example of Fig. 1-4, the branch condition for exit from 
tne loop pertains in a sense to ап external input (viz, reaching the 
end of а file). In Fig. 1-5, a different situation exists. A variable 
(M) is initialized at the start and incremented by one each time 
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is given below, This 
procedure, being mathematical, is written down in a somewhat different 
language. Each stép or statement in the Sequence bears a numerical 
label, The statement numbers are in Sequence, though they are not. 
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consecutive (this facilitates the later insertion of statements in 
between, if necessary), The statements are executed in the ascending 
order of statement numbers, except when the sequence is broken by a GO 
TO instruction, 

The procedure has a loop extending from statement 40 to statement 
TO. After initializing the values of F and M to 1 at the beginning, М 
is incremented by 1 for each traverse of the loop while the value of F 
is the running product 1.2.3. ... .M. When М equals N, F has the 
product 1.2.5... .N, i.e. the factorial F(N). An exit is then made 
from the loop, the value of F is printed and the procedure ends. 

This procedure, it can be seen, will not terminate if N is zero 
or negative and should, therefore, incorporate a check for this 
condition. For brevity however, tnis and tne subsequent examples do 
nct contain this test. 

The flow chart for this procedure is given in Fig. 1-5. The 
procedure is as follows: 


Step 10 READ (value of) N 
20 LET (initial value of) M = 1 
30 L&T (initial value of) Е = 1 
ДО ІЕМ = №, THEN (go to step) 80 
(otherwise go to next step) 
50 LET (new value of) М = (old value of) М + 1 
60 LET (new value of) F - (old value of) F * M 
TO GO TO (step) 40 
80 PRINT (value of) F 
90 END 


1.4 BRANCHES AND LOOPS 


One common feature of the flow charts of Fig. 1-4 and Fig. 1-5 
deserves comment. In neither of them is the flow of computation 
Straight from one end to the other, In both, there are loops which 
have to be traversed a number of times; an exit is made at a branch 
point only if the branch condition is satisfied. 

It would be difficult - almost impossible - to find computer 
programs which do not have such loops. It is for this reason that the 
conditional jump is the most important instruction in a computer, 

In the example of Fig, 1-4, the branch condition for exit from 
tne loop pertains ina sense to an external input (viz, reaching the 
end of а file). In Fig, 1-5, a different situation exists, А variable 
(M) is initialized at the start and incremented by one each time 


20 Programming in FORTRAN 


Read Value 
of N 


Initialise 
M=1 Ғ-1 


Yes 


Write 
, Result 


Replace 
M by M+1 
Replace 
FbyFxM 

(F is now the 

factorial of M) 


Fig.1.5 Flowchart for the procedure of calculating 
the factorial of N 


General Background 21 


the loop is traversed. М is, therefore, called a ‘counter! or an 
'index'. This counter is compared against a 'limit' each time and an 
exit is made when the limit is exceeded, It is common to initialize 
tne counter to 1, increment it by one for each traverse of the loop 
and set as limit a number which specifies the number of times the loop 
is to be traversed. Other possibilities exist: the counter could, for 
instance, be initialised to N. In this case, it has to be decremented 
by one each time and looping terminates when the counter value equals 
zero. In other cases, the increment could be a value other than 1. 


Example 1-6 


Let us now consider a Slightly more involved problem. The value of the 
factorial has to be tabulated for each number in the sequence 1 to N. 
A straightforward way of doing this would be to Specify that the 


procedure of Example 1-6 be repeated for each number from 1 toL, аз 
follows (see Fig.1-6): 


Step 10 READ (value of) L 


11 PRINT 'TABULATION OF FACTORIALS' 
12 PRINT 'VALUE OF N', (20 Spaces), 


"VALUE OF FACTORIAL' кт WB. LIBRARY 
15 LET (initial value of) N = 1 «aids T 
20 L&T (initial value of) M = 1 wee ен 966 
30 LET (initial value of) F = 1 Acon, Ме... ---- (906 


40 IF M = N, THEN (go to) 80 

(otherwise go to next step) 
50 LET (new value of) M = (old value of) M « | 
60. LET (new value of) F = (old value of) F * M 
70 GO TO (step) 40 
80 PRINT (value of) М, (20 Spaces), (value of) F 
90 LET (new value of) N = (old value of) N + 1 
100 IF N <= L, THEN (go to step) 20 

(otherwise go to next step) 

110 END 


This procedure provides for the tabulation of the results ina 
proper format, The first two print statements cause the text within 
quotations to be Written as titles for the two columns of the table, 
The other print Statement within the loop causes N and its factorial 
to be printed down for each value of N. The Procedure for calculating 
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the factorial of N (statement 20 to statement 80) need not form part 
of this procedure (though it does, here). It can be made available as 
a separate procedure which can be invoked when required, 

we must concede, however, that the above method is neither 
elegant nor efficient. The factorial is calculated ab initio for each 
row in the table, leading to an unnecessarily large number of 
computations, 

The following procedure (Fig, 1-6) is far simpler, 


Step 10 RIAD (value of) L 
11 PRINT 'TABULATION OF FACTORIALS' 
12 PRINT 'VALUE OF N', (20 Spaces), 
'VALUE OF FACTORIAL! 
15 LET (initial value of) М = 1 
30 LET (initial value of) F=1 
0 PRINT (value of) N, (20 Spaces), (value of) F 
50 LET (new value of) N - (old value of) К+ 1 
60 LET (new value of) F = (old value of) p & N 
TO IF N <= L, THEN (go to step) 40 
(otherwise go to next step) 


90 END 
This takes advantage of the relationship 


Е(М + 1) = (M41), F(M) 


where F(M) is the factorial of M. 


Let us now look at an even Simpler method (Pig, 1-5) of achieving 
the same result. 


Step 10 READ (value of) L 

11 PRINT ‘TABULATION OF FACTORIALS: 

12 PHINT 'VALUE OF N', (20 Spaces), 
'VALUE OF FACTORIAL! 

30 LET (initial value of) p = 1 

35 FOR (values of) N = 1 TOL (the inerement) 
«ТЕР (being) 1 (do the following) 

60 LET (new value of) p - (old value of) p ж N 

65 PRINT (value of) N, (20 Spaces), (value of) F 

TO (Repeat for) NEXT (value of) N 

80 END 
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Reed Value L 


Prin? Titles 


Print N,F 


Fig.1-6 Flowchorts for Example 1-6 (factorial) 
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This procedure uses a novel method of specifying that a set of 
instructions should loop a number of times. A simple statement 
initializes the counter, sets the upper limit and the increment. Each 
time the step specified in this statement is reached, the value of the 
counter is checked against the upper limit. If it is not exceeded, the 
counter is incremented suitably and the loop starts at the beginning. 


1.5 SUMMARY 


The general structure of a digital computer and the operation of its 
subunits have been described. A few simple examples of computer 
programs in the machine language of the computer are presented, 
showing that it would be difficult and tedious to write such programs 
for nontrivial problems. An analogy is drawn between a computer 
executing a program and a clerk following a sequence of instructions 
for calculating, say, income tax or the factorial of one or more 
numbers, A few procedures meant for such a clerk are presented. 

It might seem that the sequences of instructions for the clerk 
are somewhat artificial in construction. This is because they are, in 
fact, adaptations of computer programs. The one in Example 1-4 can be 
converted into a COBOL program by the addition of a few sections and a 
few minor changes in some statements. Similarly, the procedures in 
Examples 1-5 and 1-6 can be converted into programs in BASIC by merely 
removing the lower case phrases from the statements and making a few 
other very minor changes. 

The. procedures have been written in this manner to point out the 
Similarity between high level programming languages and the algebraic 
notation that is familiar to us. The contrast between writing a 
program in machine language and in a higher level language can also һе. 
obviously seen from these procedures, 

An important point that has been made in this chapter is the 


flexibility of computers and the difference between general purpose 
computers and other types of 


machine can be used for different app 
different functions by merely changin 
These programs which can be chang 
а the physical 
"hardware" of the machine which is comparatively more утаа Бо 
modify or change (and which does not required to be so changed), 
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EXERCISES 


(Some of the exercises require collecting information not contained in 
the chapters, This, however, will help the student by broadening his 
knowledge about computer systems in India and abroad) 


1. From memory, reconstruct and draw the block diagram of a digital 
computer, Compare it with Fig. 1-1. 


2. Assume that the data апа control paths shown in Fig.1-1 are 
broken one at a time. For each Such breakage, which are the 
instructions that would fail? 


3. Put the following computers in chronological order, by the year 
in which each of them became operational. ATLAS, EDSAC, ENIAC, ILLIAC 
II, STRETCH, TIFRAC. 


4, Who are the manufacturers of the following machines? 360, 3600, 
6800, 316, 650, 1904, 1604, 1620, 11-35, CYBER, GALAXY. 


5. Name the installations nearest to you which have computers of the 
type mentioned in Exercise 4, leaving out machines which are obsolete, 


6. Put the following languages in chronological order by the year in 
which they were introduced, 


FORTRAN II, ALGOL, PASCAL, JOVIAL, COBOL, FORTRAN IV, АРА, 


T. For each of the computer installations of Exercise 4, which of 
the languages of Exercise 6 are available? Make a list of high. level 
languages not mentioned in Exercise 6 which are available at these 
installations, PER 


8. For 9ach of the languages of Exercise 6, indicate the type of 
applications it is most suited for. ái 


9. A program contains the instruction 3001! (JUMP) in location 014, 
What Will the effect of this instruction be? na 


10. А computer requires 10 microseconds to perform the multiplication 
of two 16 digit numbers, How long will a man take to perform tne 
amount of computation that the machine does in one Second, (Time 
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yourself for multiplication of two 16 digit numbers and assume the 
same ratio will apply for all ‘other operations). 
11. Modify the program of Example 1-3 so that it 

(i) does not print the last result, 

(ii) prints the running total also, and 

(iii) prints the serial number of each commodity. 


12. Write machine language programs for computing and printing 

(i) the average of the 15 numbers supplied, 

(ii) the sum of two numbers A and B without using the aad 
instruction (Note: A-(0-B) = A+B), 

(iii) the squares of the first 25 natural numbers, and 

(iv) the quotient and remainder when A divides 5, but using only 
addition and subtraction as the arithmetic operations 
permitted. 


`_Сһарег2 


ALGORITHMS AND 
PROGRAMMING LANGUAGES : 


2.1 INTRODUCTION 


The procedures written for the human clerk in Chap. 1 were, in fact, 
adaptations of computer programs written in the languages COBOL and 
BASIC. The procedure of Example 1-4 ean be incorporated into a COBOL 
program after changing a few statements. The procedures of Example 1-5 
and Example 1-6 can be changed into BASIC programs by deleting the 
lower case statements in parentheses (which were introduced to make 
the meaning clear) and making a few other very minor changes. 

What is the essential feature of such tasks? Each of them is an 
algorithm and incorporates a clearly articulated, well defined 
procedure consisting of a finite (and small) number of elemental, 
basic or primitive operations. In the case of the computer, these 
operations are the built-in instructions of the machine. In the case 
of the clerk, these are operations which, it is assumed, he will be 
able to understand and perform unambiguously. 


2.2 ALGORITHMS 


Though they are anagrams of each other, the words algorithm and 
logarithm are etymologically unrelated. The word algorithm is a 
modified form of the word 'algorism' which refers to the process of 
performing written computations using the Arabian number system as 
opposed to doing them on the abacus. (It is strange that, today, an 
algorithm is the specification of a process to be performed on a 
computer rather than by hand). This word has been traced to the name 
ОҒ an Arabian mathematician called Mohammed al-Khowarizmi (the word 
algebra originated from the name of his famous book Kitab al- 
X'al-muguabala), The word algorithm gradually came to mean o "~ 
ways of calculation using the basic arithmetic operations of addition, 
subtraction, multiplication and division. | 

Two simple examples of algorithms (in arithmetic) are Euclid's 
algorithm for finding the highest common factor of two numbers and 
Newton's algorithm for finding the square root of a number, Let us 
examine these. 
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2.2.1. Euclid's Algorithm: 


The property used here is that if H is the Highest Common Factor (HCF) 
of two positive real integers A and В, and A < B, His also the HCF of 
A and B mod A. B mod A (or B modulo A) is the remainder obtained on A 
dividing B. For example, let А be 100 and B be 375, B mod A, one can 
see, will be 75. The HCF of A and B is 25 which is also the HCF of A 
and B mod A (100 and 75). If B mod A is zero, A is a factor of B and 
is, therefore, the HCF (e.g. where A = 25 and B = 100). 
The algorithm is: 


Step 1 ЈЕВ < A, exchange A and В, 

Step 2 Find С = B mod А, If C = 0, А із the 
HCF and the process ends, 

Step 3 Replace B by A; replace A by C; 
go to Step 2 


Euclid's algorithm is in fact, the method of repeated division 
that secondary school students use for finding the HCF of two numbers, 


As an exercise, the reader may use this algorithm and try 
arriving at the HCF for A = 100 and B = 375. 


2.2.2 Newton's Algorithm 


The property used here is that if A is a positive number and X, is an 


approximate square root of A, then Хам is а better араны он of 
the square root of A where 


Хам = (X + A/X,)/2 


This may be verified by using 8 as an approximate square root for 
16. 
The algorithm is: 


Step 1 Initialise X = 1 and Y to a suitable value 
Step 2 Replace X by (X + A/X)/2 | 


If }(1 = хе/А)! > Y, go to Step 2 N 
X is the square root; the process ends, 


Step 
Step 


AU 
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The first approximation for the square root is assumed to be 
unity, The second and subsequent approximations can be obtained by 
using the above property. The iteration can stop when the accuracy of 
the approximation is adequate as tested in Step 3. As an exercise, the 
reader may try the algorithm for A =  100(It helps to use a 
calculator.) 


2.2.3 What із an Algorithm? 


An algorithm, as it is understood today, is a 
clearly and unambiguously specified process, 
technique or method of approach applicable for the 
execution of a specific and straightforward job. 
An algorithm is deterministic; it is guaranteed to 
supply a unique, proper and predictable result (if 
it exists) for each valid or permissible set of 
inputs. 


Contrast the above examples with instructions like "paint a 
picture of a cow" or "write an essay on a visit to the circus" or even 
"factorize the given polynomial expression" which are counter 
examples, 

Some authors have cited cook-book recipes as the closest common 
life examples of algorithms, This analogy, amusing though it might 
appear, is quite apt in the sense that it has all the basic features 
expected of an algorithm, Instructions for knitting patterns, 
exercises for physical fitness and directions for locating places in 
an unfamiliar city are also similar, in a broad sense. However, for 
reasons of closer similarity and ease of illustration, we confine 
ourselves mainly to the domain of numerical operations in this book, 
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The examples in the previous section bring out clearly the basic 
features of algorithms. They incorporate unambiguous and well defined 
procedures which consist of а number of steps, Each step involves one 
or more basic arithmetic operations. At some points in the procedure, 
а choice between given alternatives has to be made based on whether 


certain conditions are satisfiede 
In general, algorithms have the following features: 


(1) Inputs: Ап algorithm operates оп (one or more) inputs or 
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operands whose values can vary from time to time (some 
algorithms may not have any inputs). 

(2) Outputs: At the end, an algorithm delivers (one or more) 
outputs or results obtained after performing the specified 
operations. 

(3) Definiteness or Determinaney: Each step in the algorithm із 
clearly and precisely defined in terms of the basic or 
primitive operations, leaving no room for ambiguity or 
arbitrary interpretation. 

(Д) giniteness: The algorithm has a finite number of steps and 
the process terminates after a finite number of operations. 

(5) Generality: The procedure is general in the sense of being 
valid for a number of possible values of input rather than 
for опе particular set of input values. A procedure (or an 
illustrative example) for finding the square root of a 
single number (say 484) is not an algorithm since it is not 
valid for otner input values. It should be possible to 
Specify the procedure and the data on which it is to operate 
independently cf eaoh other. 


Notationally, it is important that each step of the procedure 
should be capable of being specified in terms of one or more primitive 
operations апа of being performed on one or more operands whose values 
can be different each time. Tne notation of algebra (where the 
primitive operations are well defined and the operands can be referred 
to ру symbols, iaentifiers or names instead of by their values), is 
very convenient for this purpose. Witnout this notation, it would be 
difficult and cumbersome to achieve generality and avoid ambiguity and 
vagueness. 

nxecuting an algorithm is, however, not tne same thing as 
evaluating an algebraic expression. While an algorithm can be written 
for evaluating any algebraic expression, the reverse is not true. It 
can easily oe seen that neither of the algorithms cited above 
(;uolid's alzoritna or Newton's algorithm) can be expressed as simple 

)nessions. Only those algorithms which consist of a 
ence of operations and do not have conditional branching 
b& represented in that form. Most algorithms require 
r a given condition is satisfied or not (evaluating tne 

a preaicate expression) and using this information to 
„есп alternative ccurses of action. 
some of the steps in an algorithm (e.g. steps 1 and 2 of 


lanus, 


wewton's alzoritna) consist purely іп iini aritn: metic operations 


ereof, Some oti 


delivering  resuits ti 


(e.g, step 3 of 
0 involvc | arithmetical 


alcoritna), while they шау 
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operations, are concerned with determining the flow of control, i.e. 
the sequence in which the steps are executed, Examples are: 


(1) Conditional execution of a step 
(2) Conditional choice of one out of two or more steps 


(3) Conditional repetition of a step 


2.4 REQUIREMENTS OF AN ALGORITHMIC LANGUAGE 


It is thus clear that the algebraic notation alone is not adequate to 
write algorithms. Other facilities are necessary, e.g testing of 
conditions for branching, assigning values to symbols etc. A special 
notation or language could be designed to accomplish these; 
alternatively, one could use English or any other natural language as 
long as clarity, precision, definiteness and generality are ensured, 
The requirements аге: ) 


(1) А repertoire of primitive or elemental operations which can 
be performed on different sets of operands, 

(2) Suitable control structures wnich permit branching, looping 
and so on, 


(3) A vocabulary consisting of symbols and words which can be 
used to represent such operations, operands and connectives, 

(4) А syntax which specifies rules for forming valid statements 
or sentences using the words and symbols of tne vocabulary. 

(5) Semantics which tie the vocabulary of the language with the 
features of ‘the situation it deals with and permit each 
valid sentence in the language to be interpreted аз а unique 
sequence of elemental operations performed on the intenaed 
operands. 


Қаса primitive operation changes the value of one or more 
parameters being dealt with by tne program in a well understood and 
predetermined way which may depend on the values of one or more 
parameters, 


2.5 NATURAL AND ARTIFICIAL LANGUAGES 


In the language of cook-book recipes, the operands are flour, water, 
pan, oven, etc, The operations are boil, dry, knead, spread and so on, 
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To appreciate the importance of syntax and semantics, let us examine a 
few sentences, Consider the sentence "Flour the low with well and dish 
the warm under a flame beat"; this sentence is invalid because it does 
not conform to the rules of syntax, The sentence "Warm the flame well 
with the dish and beat the heat under a low flour" is syntactically 
correct but is semantically incorrect because the operations specified 
cannot be performed on the given operands, The sentence "Beat the 
flour well with the milk and warm the mixture under a low flame" is 
valid and meaningful, It can form a valid step in a recipe (or 
algorichm) from u cook=book, 

Checking for errors of both the types illustrated above can be 
very difficult in a natural language but is very easy in an artificial 
procedure-oriented language which is designed for a specific purpose, 
since the rules of syntax and semantics of the language are 
predetermined, They can, as a consequence, be quite simple and easy to 
apply and verify. The language can be so designed that each valid 
sentence has only one meaning, There will be no ambiguity or vagueness 
as to the meaning associated with a given sentence, 

Natural languages, on the other hand, evolved and continue to 
evolve more or less Spontaneously, Rules of syntax and semantics 
(except for languages like Latin and Sanskrit) are neither rigid nor 
pre-fixed; they are derived from an essentially limitless corpus of 
valid sentences in the language, There is no real limit to the ways in 
which a given idea can be conveyed using a natural language, There is 
also scope for considerable latitude in the interpretation of the 
meaning of sentences, 

It is for such reasons that sentence construction and 
interpretation in natural languages can properly be classified as 
being creative. Even in the comparatively restricted sphere of соок- 
book recipes, it is difficult to achieve determinanoy and precision 
and totally avoid ambiguity. Take for instance, statements like 
"separate the yolk from the egg white and add it (?) to the sauce", 
"mix the flour well (?) with butter", "warm (?) the mixture under a 
low (?) fire", "add a pinch (?) of salt", "broil till tender (?)", 
ete, There is considerable ambiguity, lack of precision and Scope for 
subjective judgement (which perhaps is what separates the good, bad 
and the indifferent amonz cooks from each other), 

It is possible to describe algorithms using a natural language if 
adequate care is taken; there is, however, no guarantee that 
ambiguities can be ruled out and that all readers will interpret a 
given statement or step described in a natural language in exactly the 
same way. The syntax and semantics of an artificial language, on the 
other hand, can be so designed as to eliminate the pitfalls inherent 
in natural languages and to make ambiguity next to impossible, Such a 
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language is ideal to use for describing algorithms but, of course, has 
to be learnt by special effort. 

ALGUL (Algorithmic Language) was designed for this specific 
purpose and is accepted as the universal publication language for the 
description of algorithms. The following is a simplified version of 
Euclid's algorithm and an ALGOL representation thereof. 


Luelid's Algorithm (simplified version) 
Step 1: If A = B, go to step 5 
Step 2: If A > B, replace A by (A - B) 
Step 3: If B > A, replace B by (B = A) 
Step 4: Go to Step 1 


Step 5: A is the HCF and the process ends. 
ALGOL Implementation 
integer procedure hef (a, b); value a, b; integer a,b; 
begin compute: if a = b then go to result; 
if a> b епа : 
else b: 
go to compute; 
result: hef := a 


a-b 
b = a; 


end 


(Exercise: try this out systematically, with pencil and paper, for any 
two numbers), 

It will not be possible at this stage for the reader to 
understand the features of ALGOL language or appreciate its elegance 
and power. The correspondence between the statement of the algorithm 
and its ALGOL representation is, however, quite easy to see. FORTRAN, 
PL/1 and BASIC are some of the other languages which can be used for 
describing algorithms. Let us briefly see some of the attributes of 
such languages. A language is called 'procedure-oriented! if each of 
its primitive operations specifies an action that can be executed and 
it is possible in each сазе to specify the sequence or order in which 
these are to be performed. A 'problem oriented' language is one in 
which tbe primitive operations have been designed for convenience in 
the application areas for which the language is intended to be used, A 
"hardware' language is one which сап be accepted by a computer; 
algorithms written on it can be run on a machine as computer programs, 
A 'reference' language is the definitive form of the language while a 
'publieation' language is a version of the reference language which is 
suitable for printing and writing. The reference, publication and 
hardware versions of a language oan be different, The reference 
version could, for instance, contain superscripts апа subscripts, 
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different script styles and other similar features which help improve 
clarity. For convenience of printing and writing, some of these might 
have to be eliminated in the version to be published. Similarly, lower 
case characters, different types of parentheses and special characters 
and underlining which might exist in the published version may have to 
be eliminated in the hardware version to facilitate input through card 
readers and other devices, All the languages that we shall study are 
problem-oriented, procedure-oriented, and hardware languages. ALGOL is 
the first language which had distinet reference, publication and 
hardware versions, Ху = 

The machine language of a computer also fulfills all the 
requirements we have listed earlier for describing algorithms. The 
instruction repertoire of a computer constitutes an adequate set of 
primitive operations. There is no ambiguity in interpretation since 
tne operation associated with each instruction is uniquely defined. 
Tne instructions of a computer have as their operands not specific 
numbers but contents of registers and memory locations. This makes it 
possible to achieve generality; the values of the operands can be 
different from time to time and can be changed witnout changing tne 
procedure. The conditional jump instruction permits choice between 
different action alternatives. Algorithms can, therefore, be expressed 
as computer programs written in the machine language. 

. The main difference between 'versions' of the same algorithm 
described in different languages would be the 'level' of description 
which would naturally depend on the type and power of the primitive 
operations available in its vocabulary. 


2.6 LEVELS OF DESCRIPTION 


If there are two languages A and В in which algorithms сап be written, 
it follows that any algorithm written in language A can be translated 
into language B provided each primitive operation in language A can be 
expressed as an algorithm in language B. The reverse translation would 
nct, of course, be possible in general. Also, this translation need 
not be unique; several translated versions may be possible, provided 
of course that they are all equal in effect. A necessary condition for 
this translation to be possible is that the primitive operations ‘of 
language Б snould be more basic or elemental than those of A. A is 
tnen a higher level language than B. ALGOL and FORTRAN are higher 
level languages, compared to machine languages of computers, 

If A is a well defined artificial langua 


Rm Бе and Ь is another 
artificial language at a lower level, an alg 


oritna C-can be written 
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which, given any algorithm in language A as its input, delivers an 
equivalent algorithm in language B as its output, Since C is an 
algorithm, it сап itself be written in the machine language of a 
computer and be run as a computer program, Computers can thus be used 
to translate algorithms written іп artificial languages into other 
artificial languages at lower levels, 

While it should, in principle, be possible to translate 
algorithms written in natural languages also into lower level 
artificial languages, this process is very complex due to the wide 
flexibility possible in writing steps in a natural language and the 


possibility of ambiguities in interpretation, Such translations oan, 
at present, be done only by human effort, | 


The assembly language of a computer occupies an 
intermediate level between the machine language 


and high level languages like FORTRAN апа ALGOL.. 


while it is quite close to the machine language, it has the 
advantage that insteaa of using numeric codes for instructions and 
numbers for addresses, it uses mnemonic codes (e.g. MPY for multiply, 
MPn for multiply and round off) and alphanumeric names for addresses, 
At an even lower level are microinstruction languages, which can be 
used to express eacn machine instruction as a sequence of mioro- 
operations; these languages fall beyond the scope of this book, 


Programs which can translate algorithms written in 
languages such as FORTRAN and ALGOL into an 
assembly level language are called 'compilers', 


Translation ‘from assembly, language to machine 
language is done КҚ programs which аге called 
'assemblers', 


A program written, say, in FORTRAN or ALGOL (source coue or А 
Source program) has to be first fed аз input data to an appropriate 
compiler which is loaded into the computer, This cozpiler then takes 
the input program and compiles an equivalent assembly language program 
which becomes its output, This is then fed as input to an assembler 
loaded in the machine for being assembled as a program in machine 
language (object code program), This output is finally loaded on to 
the machine as a regular program, and can accept inputs, process then 
and wake outputs available, This is'illustrated rin ВІ 
Appendix 3 and Appendix 4 for brief acecunts of the c 
compilers ana assemblers), 


» 2-1 (See 
peration of 


& 
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Writing a program in а high level language is convenient because 
such languages are powerful (they incorporate fairly complex 
operations as primitives) and use English terms and a notation quite 
akin to that of algebra, They relieve the programmer from the tedium 
of needless detail, Also, they permit him to specify the algorithm as 
well as its inputs and outputs in a machine independent mode, so that 
the same program can be run on different machines, The readability of 
higher level language programs simplifies the problem of 
documentation, The price that one pays for this convenience is the 
time and effort involved in the extra step of compilation and the 
inefficiency it entails. Compile time is small compared to run time 
for most programs and is not a serious inconvenience, The inefficiency 
of programs generated by a compiler is considerable; typically, such 
programs occupy 3 to 10 times more memory space than those codedin 
the assembly language and are also slower in running, Due to the 
nearness of the assembly and machine languages to each other, no such 
inefficiency arises for programs written in the assembly language. 
Also, certain operations (such as processing smaller units than 
computer words) cannot be done in Many higher level languages. 

For most day-to-day appli cations, the convenience and speed of 
writing programs in high level languages more than compensate for the 
inefficiency at run time, Today, tnere are high level languages which 
do not have even this limitation, Where such languages are not 
available and where memory space and run time are important, 
programming in assembly language is the answer, Even here, a fairly 
common method followed is to write the program in a hign level 
language, compile it and manually trim the program for better 
efficiency, 

We have now seen that, apart from the programs that one has to 
write for various applications (such as calculating factorials, 
computing income tax, ебс.), there is need for other types of programs 
{such as compilers, assemblers, eto.). 


Programs which facilitate running the application 
programs on the computer are termed system 


programs or system software whereas software 
relatingdirectly to various types of applications 
is termed application software, 


27 STRUCTURE OF COMPUTER PROGRAMS 


We have seen that a computer program is a description of an algorithm 
= a sequence of statements in a precisely defined artificial language, 
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It therefore has to have all the characteristics of an algorithm. 
discussed in Sec. 2.3. The following is a FORTRAN implementation of 

Euclid's (modified) algorithm for computing the HCF of two numbers, 

that we already considered above. 


PROGRAM EUCLID 
THIS PROGRAM IS AN IMPLEMENTATION OF EUCLIDS 
ALGORITHM FOR CALCULATING THE HCF OF TWO 
POSITIVE INTEGERS A AND B. 


аао а 


INTEGER A, В, HCF 
READ (5, 1000) A, B 
1000 FORMAT (2 I5) 
5 IF (B .EQ. A) GO TO 10 
IF (B .GT. A) В= B- A 
IF (A .GT. B) A- A- B 
GO TO 5 
10 HCF = A 
WRITE (6, 1010) HCF 
1010 FORMAT (12HbTHEbHCFbISb,I5) 
STOP 
END 


Using this as an illustration, let us examine the general form of 
a FORTRAN program. 


Each program is referred to by the title assigned to it, which 
forms the first sentence of its text. (PROGRAM EUCLID in this case). A 
number of comments in English (labelled C) can occur within the 
program; these are purely for explanation and are ignored by the 
compiler. 

The first part of the program consists of one or more declaration 
or specification statements (e.g. INTEGER A, B, HCF in the example), 
These serve the purpose of specifying to the compiler the nature of 
the variables used, so that they can be represented appropriately in 
the machine and assigned the necessary memory space, 

The first activity before computation can start is the assignment 
of values to the operands. This is done by input statements (the READ 
statement here) which cause the machine to read values fed to it 
through an input device such as a card reader. The manner in which 
this input is organized is specified by a FORMAT statement. 

The actual computation is accomplished by а sequence of 
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(arithmetic) assignment statements (which have the equality sign 
occurring in them) interspersed with control statements, Flow of 
control is sequential unless otherwise specified by control statements 
such as the GO TO statement (which unconditionally transfers сспёго1), 
the IF statement (which causes the machine to test whether a specific 
condition is satisfied and, depending on this, to perform a specified 
computation) or the DO statement (which specifies that a set of 
statements should be repeatedly executed a number of times), The 
numerical labels on the statements are necessary for statements which 
have to be referred to by other statements., The flow of computation 

for this sequence is simple enough for the reader to understand with 

the aid of the comments and the algorithm described earlier, Once the 

computation is complete, it is essential to deliver the output to the 

user, This is accomplished by an output statement (the WRITE statement 

here) according to a specified FORMAT, The answer in this case (947, 

Say) is printed in the form: 


THE HCF IS 947 


The end of computation is Specified by the STOP statement and the end 
of the program by the END statement, 

It must be remarked that programs can be considerably more 
complex than the above very simple example, There can be a number of 
subprograms in a program, The specification statements can be much 
more involved, The input, control, assignment, FORMAT and output 
statements can be interspersed, 


2.8 SUMMARY 


In this chapter, we studied tne general features of algorithms with a 
few examples, From these, we deduced the requirements that а language 
must meet, to be able to describe algorithms adequately. We saw that 
while natural languages such as English can be used for descri bing 
algorithms, they are not very satisfactory, Artificial languages have 
been Specially designed for the purpose, We noted that computer 
programs are in fact descriptions of algorithms in such artificial 
languages, at various levels, We saw that it is possible to write 
programs which can translate a description of an algorithm written in 
a high level language into a lower level language. We studied briefly 
the structure of a simple computer program written in FORTRAN, 
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EXERCISES 


1 Write an algorithm for Separating out the digits of a number 
(the remainder obtained on division by 10 gives the least significant 


digit of the number). The procedure should come to а stop as soon as 
it is complete. 


2 write an algorithm for checking whethera given number isa 
prime. 


3. A, B and С are three positive numbers, for which only the 
approximate values X, Y, and Z are known. 


Write an algorithm for 
finding the HCF M of the numbers A, B and C using only X, Y and Z. M 
is considerably larger than the approximation error in X, Y and Z. 
Ц. Obtain a cook-book. 


the form of an algorithm 
point and one loop), 


Choose a suitable 


recipe and express it in 
(make sure that it 


has at least one branch 


5. A patient has to take two medicinal tablets every 3 hours if his 
temperature exceeds T1 
and T2 and no medicine i 


algorithm incorporating these instructions, 


6. A pack of playing cards is shuffled th 
algorithm to rearrange the cards іп the pro 
interchanging two cards at a time, 
of steps? 


oroughly. Write an 
рег sequence by merely 
Can this be done ina finite number 


Chapter 3 


AN OVERVIEW OF FORTRAN 


3.1 INTRODUCTION 


This chapter attempts to give an informal overview of the basic 
features of FORTRAN. This should help us to understand, appreciate and 
study in detail the various aspects of the language and its structure 
in the later chapters. 

In Sec. 2.4, we have already enumerated the requirements of a 
language which can describe algorithms. Let us now expand on then, 
keeping in view the following: 


(1) It should be possible and convenient, with minimal 
instruction, to write algorithms in this language. 

(2) It should be possible to automatically (by using a computer 
program - a compiler) translate these algorithms into 
machine language programs of a computer. 

(3) These programs, when run on the computer using appropriate 
input data, should cause the concerned algorithm to be 
effectively and efficiently executed in the computer; the - 
resulvs should be made available as outputs from the 
machine. 


The language should, in short, cater to the requirements for 
describing algorithms, provide for the convenience of the human 
programmer and be amenable for automatic translation into machine 
language. 

The features to be provided and the facilities to be incorporated 
in such a high level programming language are broadly discussed below. 


(1) Data Types: Depending on the intended application areas, a 
programming language паз to be able to operate on various 
types of data: numbers (integer, real and complex), arrays 
(vectors, matrices and multidimensional arrays), logical 
data (see Appendix 1), textual material (strings or 
sequences of characters, sentences in one or more natural 
languages) and symbolic inputs (expressions in formal 
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(2) 


(3) 


(4) 


(5) 


(6) 
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languages such as algebra, predicate calculus and so on). 
FORTRAN, for instance, deals with numbers, arrays and 
logical variables, It сап also operate on textual 
information, but in a very limited sense, 


applicable (we cannot, for instance, add or multiply words 
of a language or find antonyms of a number), For each data 
type, the primitive operations available should be at a 
proper level: powerful enough to save the programmer from 
needless detail and general enough to permit a variety of 
algorithms to be implemented, Further, they should be 
precise enough to be implemented directly ina computer 
("Parse the given sentence" for instance, could not be a 
primitive operation in a language), 

Vecabulary: The language should have words or symbols to 
operations to be performed on 
Should be provided Ғор ; those 


fixed a Priori 


in' other w 
define operands, (non-pri mi ti ve) 


Character Set: Communication in 


to take place with a computer, 
fore be based on a limited Set of standard characters, 


which define how this can be achieved and hel 
whether a given construct is valid, 
Semantics: Every valid construct should have a 


(7) 


(8) 
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compiler of the language). 

Pragmatics: From the point of view of the user, the aspects 
that are relevant are the ease with which a language can be 
learnt and used and the readability and verifiability of 
programs written in the language. These depend on how 
closely the language follows the established conventions and 
notation of mathematics (and English). 

Firstly, it would be desirable for the language to be 
precise and compact rather than verbose. A second 
requirement is that the language structure should be 
consistent in the sense that its rules, conventions and 
usage should be applicable uniformly. Having to provide for 
and keep track of a number of special cases and exceptions 
would be inconvenient and would increase the possibility of 
errors. Thirdly, the language should be efficient with 
respect to the effort required for writing programs and 
locating errors in them. Efficiency is also required in the 
matter of time taken to compile such programs and run them 
on a computer as well as the size of the compiled object 
code. Fourthly, an important aspect of user convenience is 
the desirability of the program text being self-explanatory. 
To achieve this, it becomes necessary to insert explanatory 
comments in English at various places in the program.’ A 
facility should exist for doing this where required. It 
should be possible to signify to the compiler that they do 
not form part of the program and can, therefore, be ignored. 
Types of Statements: Each step in an algorithm is expressed 
in the form of one or more sentences or statements in the 
language. There is need for statements of different types, 
Performing computations on operands and assigning the 
results of such computations as values of variables is 
central to the execution of algorithms, and should be 
provided for. Assignment statements accomplish this. The 
steps in an algorithm are normally executed in sequence, but 
it should be possible to specify that the sequence be broken 
(either unconditionally or depending on a specified 
condition). Control statements (e.g. IF and GO TO in 
FORTRAN) perform this function. It should be possible to 
label the statements in a program so that these can be 
referred to by other statements. Since several types of data 
can be dealt with, it should be possible to convey to the 
computer (or compiler) information regarding the data type 
of each operand. Declaration statements perform this and 
similar functions. To provide values to operands on which 
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the algorithm operates and to access the results, input and 
output statements are necessary. 

Statements which merely provide information to tne 
compiler are called nonexecutable while those which actually 
get translated into computer instructions in the Object code 
(e.g. assignment, control and input-output Statements) are 
termed executable. 


Discussing the tradeoffs involved in designing such a language 
would be beyond the scope of this book. These would naturally have to 


3.2 THE LANGUAGE PRIMITIVES AND GENERAL FEATURES 


3.2.1 The Character Set, Operations And Operands 


The character set of FORTRAN consists of the characters listed below 


Alphanumeric Characters 


Letters *ABCDEFGHIg KLMNOPQRS 
А TUVWXYz 

Digits 21234567890 

Special Characters 


w 
Гай 
3 

~ 


(This character is represented either 
by a single empty space OP, when 
it is critical, by the letter p), 
Assignment sign а 


Р1из : + 
Minus НЕЕ 
Asterisk zx 
Slash = 7 
Left Parenthesis set 
Right Parenthesis ) 


Comma E + 
Decimal Point : 
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The primitive operations permitted in FORTRAN are: 


(1) the five arithmetic operations: addition (+), subtraction 
(=), multiplication (*), division (/) and exponentiation 
(##), 

(2) the six relational operations: equal to (.Е0.), not equal to 
(НЕ), greater than (,GT.), less than (.LT.), greater than 
or equal to (.GE.), less than or equal to (.LE.); and 

(3) the three logical operations: not (.NOT.), and (.AND.) and 
or (.OR.). 


Standard functions such as sine, cosine and square root can also 
be computed effectively in the same manner as primitive operations 
(SIN, SQRT, etc.)e In addition, other desired functions can be defined 
in the form of algorithms and used, 

These operations сап be performed on constants and variables of 
appropriate types, Constants are referred to by their values (eg 2, 
3.146, 500) and variables by their names or symbols (e.g. А, ВЕТА; 
X12). 


3.2.2 Syntax 


One should know the syntax of a language to be able to construct 
complex entities out of simpler ones (e.g, phrases out of words, 
sentences out of phrases and so on), Knowledge of the rules of syntax 
is necessary also to check whether a given sample is a valid construct 
of the language, To define the syntax of a language requires a meta 
language - a language used for describing other languages, One oan of 
course use English for doing this; this is what most FORTRAN text 
books do, In fact, English oan even be used to describe the syntax of 


itself ~ as in grammar books, 6.8» 


(1) But is a conjunction; 
(2) A verb can have two objects - a direct object and an 


indirect object; 
(3) But, conjunction and verb are nouns in the above two 


sentences, 


However, all this can be very confusing, Verbal descriptions, by 
themselves, are therefore not adequate, 

We shall use a specially devised piotorial notation for Studying 
the syntax of FORTRAN. We describe this notation below, 
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FO^TRAN uses entities of three types: 


(1) Key-words (such as Do, DIMENSION, FORMAT), 
(2) Symbols such 88 assignment (=), comma (,) and point (.), and 


(3) Constructs, Such as variable names, constants and 
expressions. 


In the Statement 


READ (3,10) MASS 


name of a variable, We describe the gen 
Statement as follows: 


READ |а) ® D] a 


The above general 
example occurring before except that th 
around the entities. in 


0 
have been substituted by u, k, 3, 10 and mass 


They are Part of 
the entities that they 
substituted by anything. It occurs unchanged, by itself. 
a key word or a special FORTRAN Symbol. It is 
constant. In FORTRAN, metalinguistic constants have to be always 
written in capital letters, as these are the only type permitted in 
FORTRAN. | | 

The circle indicates that the item it encloses does not occur as 
it is in the language. It has to be substituted by Something else thet 
it represents, it isa metalinguistic identifier 9r variable, 

There are cases where a particular item may or may not occur, It 
is optional. We indicate such an item by a dotted circle or rectangle, 
One problem still remains: we do not know what the Statement is and 
What these identifiers mean. We also do not know what entities are to 
be used to replace these identifiers. It is therefore necessary to add 
descriptive tags to these identifiers, 
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The descriptive tags should clearly explain both the meaning and 
Structure of the identifiers u,k, and 1. If further illustration is 
required, it can be provided by suitable examples. 

Let us examine the Strucutre of this Statement, after 
incorporating these additional features. The variable list (1) is 
optional. Notice that it does not exist in the first example, 


Chart 1 
The Formatted READ Statement 


Variable list 
(simple list or implied do list) 
(optional) 


Format statement pointer 
(statement label or 
variable format array name 


Logical unit number 
(integer constant 
or integer variable) 


[RED @ FONG 


Examples: 


READ (3,7) 
READ (MTAPE,K2) X, Y (4), (100) 


There are constructs in FORTRAN which contain as 
String of other entities, For instance, a variable name j 
be a single letter or a letter followed by one or more 
characters (letters or numbers); i.e. it is al 
optionally by one or more alphanumeric characters, 
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This is represented as follows: 


Chart 2 


Variable Name 


Alphanumeric 
(letter or digit) 


x “м. 
Ч \ 
Пакт 
Examples: 
A 
BETA3 
MASSI 
RIXZMN 


Similarly, the variable list can be either a single variable name 
(limiting case) or a number of variables separated by commas (see 


chart 3). 
In both the above cases, the dotted line ending in an arrow 


indicates repetition of the entity attached to the left of it. Tne 
fact that it is in dotted lines indicates that it may or may not 
appear; it is optional. 

As we saw earlier, some FORTRAN statements are instructions for 
action by the computer. These are called executable statements, Others 
contain information which the compiler will need to cause the computer 
to accept input information, execute the intended instructions and 
output the results. These are called non-executable statements. Under 
each type, there are several different statements. Each statement can 
be considered to be essentially a template consisting of certain key 
words and symbols (metalinguistic constants: items епејозед in 
rectangles) which can not be changed in any way. 

The keywords and symbols indicate the "type" of each statement. 
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The keyword READ in the above statement specifies that it is a READ 
statement and tells the compiler that a read (or input) operation is 


to be performed. It is also necessary to provide the computer with 
additional information which helps it to perform this task properly. 


Chart 3 


Variable List 


Variable name 


Examples: А 
A, MASS 
K, 8123, ТРО 


it is necessary to specify where to 
in what form the information is 
nformation after reading it and 
дев. for one or more slots for 
y circles in our notation and 
ntifiers or variables, 
mation when 


In the case of the READ statement, 
find the information to be read, 
expected to be, what to do with the i 
30 оп, The statement therefore provi 
os details. Such slots are indicated b 
Th symbols within are called metalinguis 
бата, will have to be replaced by the appr ман 
fo ing the statement in a program. For a READ sta , 
is unit number. It has to be replac 
9oifies the input unit (unit 2, unit 6 and 8 
Dformation is to be read. The format in which the informat a 
foung on that unit is specified through the identifier k (which has 4 
be replaced again by an integer). k is the number of the FORMA 
Statement where this information is indicated. The information read in 
has to be assigned as the value(s) of one or more variables. The names 
of these variables are to be inserted in slot 1 (if oe are two or 
more varia es have to be separated by commas). 
For de eam ке етене there аге, naturally, other slots 


Which are indicated by appropriate identifiers and have to be replaced 
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by suitable entities. Each item of such information has to be inserted 
only into the particular slot intended for it; also, it has to be 
organised into the particular form or structure which is specified for 
it. This structure has to be well defined by the syntax. Information 
will either be misinterpreted or rejected by the compiler if it does 
not conform to this structure. In our notation, the nature and 
structure of the entities (or information) that can be used to fill 


these slots are indicated by means of suitable explanations tagged on 
to them. To summarise, 


(1) 


(2) 


(3) 


(4) 


(5) 


(6) 


(7) 


(8) 


(9) 


Since all the statements and other con 
described using this notation, 


completely. To avoid later confusion, 
through this section a number of time 


Keywords or special symbols are shown enclosed by rectangle 
and have to occur as they are, 
A metalinguistic identifier uses only lower case letters and 


is shown enclosed by a Circle, It has to be replaced by an 
appropriate construct, 


Explanation of the structure and meaning of the constructs 
that can replace each identifier are briefly given in the 
form of descriptive tags. 

A broken circle ог rectangle indicates that the item it 
encloses is optivnal, 

A circle or a rectangle in broken lines ending in an arrow 
pointing to the right indicates that the item enclosed by it 


May occur one or more times (or not at all): i.e. that it is 
an optional sequence, 


Examples are given immediately below the description, to 
clearly illustrate the structure, 


It may be noted that the symbols used in the metalinguistic 
notation are so chosen as 


symbols used in FORTRAN. 


The rectangles put around even Symbols like Stop, comma and 
paranthesis help to remind us that 


even these are ag 
important as the other keywords and symbols and that 
omitting them will cause errors. 


Left and right parentheses occur in pairs; when these are 
optional, either both .should be dropped or both Should 
remain. In our notation, whenever a pair of parentheses is 
optional, the left and right parentheses are shown linked by 


a dotted line to emphasise that one cannot 


be dropped and 
the other left in. 


structs of FORTRAN are 
it is essential to understand it 


the reader is advised to go 
s if necessary and. satisfy 
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himself that he understands it clearly, before going any further. 

We have seen that the syntax of Fortran defines how to form 
statements. A subprogram consists of a proper sequence of statements. 
A program is a sequence of statements and subprograms. One might 
wonder whether the syntax of FORTRAN also defines how statements are 
put together to form programs, The rules governing the structure of 
these entities are too complex to be indicated here. These will be 
discussed in the following chapters. 


3.2.3 Semantics 


Each primitive operation (and all permitted combinations thereof) must 
have a clearly defined and unique meaning. Such meanings can be 
conveyed either verbally in terms of the operations that are intended 
or formally in terms of an equivalent sequence of machine instructions 
for a real or a hypothetical machine. Consider the output statement 


WRITE (2, 20) A,B,C 


The meaning of this statement can be explained in terms of its 
effect: to cause the values of the three variables A, B and C to be 


output on peripheral Unit No.2, according to the format specified by a 
FORMAT statement labelled 20. 


It should be possible to assign such unique meanings to all 
possible statements that can be constructed by following the rules of 
syntax. This is what a compiler does, 


3.2.4 Statement Types in FORTRAN 


The statements of FORTRAN can broadly be divided into two types: 
executable and nonexecutable. 


Executable statements are commands which cause the 
computer to perform specific computations. These 
Statements are translated into one or more 
instructions in the object program. 


They can optionally have integer 'labels' by means of which they can 
be referred to by other statements. Examples of executable statements 
are READ, WRITE and arithmetic assignment statements. 
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Nonexecutable statements are not commands: they 
simply carry information to the compiler and help 
it to write code; they do not themselves translate 
into instructions in the object code, 


Examples are the type declaration statements (which specify whether a 
variable is an integer, a real number or a complex number), the 
DIMENSION statement (which indicates the sizes of vectors, 
and so on) and the END statement (which signifies the end of 
of a program or subprogram). 


matrices 
the text 


3.3 EXECUTABLE STATEMENTS 


There are three types of executable Statements: 


(1) Assignment statements which cause 
computed values to variables; 
(2) Control statements which are conce 


the machine to assign 


rned with the transfer of 
m to another; 


en the com 
external world, puter and the 
We shall now briefly discuss exam 1 
NE ples of these Statements and 


3.3.1: Assignment Statements 


As mentioned already, these Statements cause the assignm 

to variables. da] A 
The following 1з an example of an ari 

Meu thmetio assignment 
А = (Be 2.973. 


This сап be interpreted as "A bec 
1 Cmes (B + 2,)/31, 1 
of B is 4., the value of A becomes 2., ет 
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3.3.2 Control Statements 


Statements are normally executed in the sequence in which they occur, 
Control statements can be used to transfer control out of sequence, 
The unconditional GO TO statement causes control to be 
transferred to the statement specified 
For example, the statement 


GO TO 24 


causes the statement labelled 24 and subsequent statements to be 
executed rather than the ones following the GO TO statement. The 
statement thus actually causes control to go immediately to statement 
25. 

The DO statement enables a sequence of statements to be executed 


a number of times. Take the statement 


0121 = 10, 20, 2 


The set of statements following tke DO, up to and including 
Statement 12, are executed repeatedly. For each execution, I takes a 
different value starting with 10, going up to 20 in increments of 2. 
After the limit is crossed, the Statements following statement 12 are 
executed. 

The CONTINUE statement is a do nothing statement, and is 
generally used as the last statement in a DO loop. 

The IF statements achieve conditional branching and conditional 
computation. 

The following is a logical IF statement: 


IF (А .GT. B) C=4*D 


The statement on the right is executed only IF the Specific 
Condition’ (A>B in this сазе) is satisfied. It is ignored otherwise, 

The STOP statement causes computation to cease; it is not 
possible to restart the same program after a STOP, А PAUSE statement 
also causes computation to halt, but permits resumption from that 
point by an appropriate command from the computer console, 


The CALL Statement transfers control to a Subprogram. The 
statement 


CALL MATINV (A, B, N) 
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the subroutine called MATINV. 


r this subroutine are A, B and 
N. A could be the original matrix (input), B the inverted matrix 


put). 


ROUTINE Statements in Sec. 
3.4.2.) 


3.3.3 Input-Output Statements 


Examples of input and output Statements are 


READ (5, 15) А,В,С 
WRITE (6, 30) D,E,F 


Statement. For output, 
the values are specifie 
BACKSPACE, ENDFILE 


3.! NONEXECUTABLE STATEMENTS 


The following are nonexecutable Statements: 


subprograms; and 
(4) the DATA initialization Statement. 
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3.4.1 Specification Statements 


Type declaration statements are used to speci fy to the compiler the 
data types of the various variables used, The statements 


REAL LENGTH, MASS, M 
INTEGER AGE, RANK 


indicate that the variables LENGTH, MASS and M can have real numbers 
aS values while variables AGE and RANK can take only integer values, 
Unless otherwise declared, variables whose names start with I,J,K4, M 
or N areimplicitly taken to be of integer type and others, of real 
type. 

The DIMENSION statement declares the sizes of arrays so that an 
adequate number of memory locations are set apart for them, The 
statement 


DIMENSION VECTOR(20), МАТВІХ(50, 10) 


indicates the sizes of the arrays (that the first is a linear array of 
20 elements and that the second is a two-dimensional array comprising 
50 x 10 elements), 

The COMMON statement indicates variables which are accessible to 
different subprograms under different names, 

Let us examine the statements 


COMMON A, B, C(10) 

occurring in subprogram M and 
COMMON X, Y, Z(10) 

occurring in subprogram N. 


These imply that the names A, B and C in the subprogram M refer 
to the same variables as do the names X, Х ара Z respectively in the’ 
Subprogram N, 

The EQUIVALENCE statement declares sets of variables to be 
equivalent, i.e, to be assigned the same memory location and therefore 
to have the same values at all times, The statement 


EQUIVALENCE (A,B,C), (I,J,K) 
implies that the names A, В and С are synonymous and can be used 


interchangeably; Similarly, that the variables I, J, and K have the 
same values at all times, 


`56 Programming in FORTRAN 


The DATA initialization statement specifies the initial values of 
sets of variables, The statement 


DATA І,Ј,К/1,2,3/Р,0/2.3,4.7/ 


causes the variables I,J and К to have tne values 1,2 and 3 and P and 
Q the values 2.3 and 4.7 respectively, 
The EXTERNAL statement provides information regarding subprograms 


which are called by other subprograms as arguments, For example, the 
statement 


EXTERNAL COS,SQRT 


indicates that the standard library functions SQRT and COS are used by 
other subprograms as arguments, A subprogram TAB(A,B,C, FUNCT) say, is 


defined to tabulate the function FUNCT from value A to B at intervals 
of С. Calling the subprogram by the statement 


CALL TAB (5., 10., 0.1, COS) 


would cause the cosine function to be plotted for values 5.0 to 10,2 
at intervals of 0.1 (see Sec. 3.4.2). 

The FORMAT statement provides information about the layout of 
information in the input or output medium, It always has a label since 
it has to be referred to by an input or output statement, In the 
statement pair 


READ (5, 10) A, B 
10 FORMAT (F 6.3, 4X, F 6.3) 


the FORMAT statement specifies that the variables А and B exist as 
real numbers, each six characters in length (including the decimal 
point and sign), that the decimal point (if missing) is to be 
understood to be present three places to the left of the least 
significant digit and that the two numbers are separated by four blank 


characters (indicated by x), Similarly, in the statement pair 


WRITE (6, 15) A 
15 FORMAT (6HbAbISb, Е8,3) 


the FORMAT statement specifies that the strin 
characters A IS (including blanks) is to be printed, followed by the 


value of A written in 6 characters (ineluding the decimal point and 
Sign), with 3 significant digits after the decimal point, after doing 


& of 5 Hollerith 
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the necessary round-off. 
Tne BND statement signifies the completion of each program or 
subprogram. 


3.4.2 Subprogram Statements 


The STATEMENT FUNCTION statement defines a function that can be 
defined as an expression. Each time the expression is to be written, 
it can be replaced by the function name. 

The statement 


POLY (A,B,C) = 3*A*A+4*B4C 


defines the function POLY (A,B,C) as the expression 
3A? + ДВ +С 


The arguments of the function аге A, Б апа С. This function name сап 
be used with suitable arguments instead of the expression, whenever 
needed. 

The FUNCTION and SUFROUTINE statements are used as titles of the 
respective subprograms such that they can be invoked by suitable CALL 
statements, 

Examples of these statements are: 


REAL FUNCTION VAR (A,E,C) 
SUBROUTINE MATINV (X,Y,2,D) 


A,B,C,X,Y,2 and D are parameters in terms of which the respective 
subprograms define the algorithms to be used for performing the 
respective computations. These are called dummy or formal parameters, 

A FUNCTION subprogram computes the value of a single variable 
(e.g. square root, average). 

The statement X = VAR (F,G,H) delivers the computed value of the 
funetion (for actual arguments F, G and H) as the value of the 
function name and ássigns this value to the variable X. The argument 
names in the calling statement are the actual arguments used and can 
be different from the dummy arguments used in the subprogram text. The 
function name can also be used as an argument in an expression 

The SUBROUTINE subprogram сап assign values to more than one 
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variable (e.g. invert a matrix and calculate the value of the 


determinant), In the example above, A and С may be inputs and B the 
output, A CALL statement 


CALL MATINV (U,V,W,H) 


causes tne actual parameters U, V, W and H to be taken in the place of 
the dummy or formal parameters X, Y, Zand D respectively, U and W 
are, therefore, the input variables and the outputs are delivered as 
values of variables V and H (see also the SUBROUTINE statement in Sec, 
3.3.2). 


The BLOCK DATA subprogram Permits the values of a number of 
variables (in a COMMON block) to be initialized, 


3.5 PROGRAM PREPARATION 


We have so far seen some aspects of the planning and writing of a 
program, We have also seen that a program writtenina higher level 
language is fed to the computer as an input to the appropriate 


3.5.1 Punched Card Format 


Punch, This causes rectangu 
places on the сага, A printing key- 
printed along the top edge of the card, 
used to accommodate a single character which is identified by the 
pattern of holes punched in that column, The numbers 0 to 6 аге 
represented by а single hole to be punched in one of the rows 1 to 9 
The letters А to Z use a two-hole code, one hole being in the rows 0 


ch are at the top), The special 
binations of holes, The blank 
ing punched in any row, Fig, 3-1 
he FORTRAN characters as well as 
ched on it, 


S accommodate a Maximum of 80 


also to be 
Each column of the card сап be 


characters, 
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3.5.2 Тһе FORTRAN Coding Sheet 


For ease of punching, programs are written on special coding sheets 
where each line of code corresponds to a single punched card and has a 
maximum ot 80 characters, Each line is divided into various fields (or 
sets of columns) whose functions are described below: 


(1) 


(2) 


(3) 


(4) 


(5) 


Comments; The first column сап be called a comment flag. 
field and is used to signify 'comments', The letter C in 
that column indicates that the line is a comment which has 
been inserted for explanation and causes the compiler to 
ignore it, 

Statement Label; The first five columns (columns 1 to 5) 
form the statement label field and are reserved for the 
Statement label whioh сап be an unsigned integer number 
between 1 and 99999. This label serves to identify the 
statement, as is required in connection with GO TO, DO or 
other control statements, as well as for program editing and 
printing of error messages by the machine, FORMAT statements 
also require labels, All statements need not have statement 
labels; also, statement labels need not be i 
any other order, 
50. 


п ascending or 
though it would be convenient to have them 
Two or more statements cannot have the same label, 
Blanks and leading zeroes in the label field are ignored, 
Continuation Flag: Column 6 is the continuation flag field, 
Any character other than zero or blank in this column 
indicates to the compiler that that line is not a new 
statement but a continuation of the previous one, 
statement continues for several lines, 
blank character in this field, 
indicate that this is the first 
line can have 2 and so on, 
Text of Statement: The actual text of the statement is 
accommodated in the statement field (columns 7 to 72, i.e, 
66 columns) which is normally adequate for most statements, 
There are no restrictions as to the layout of the text 
within this field, This can, therefore, 
required to ensure readability, 

Sequence Number: Columns 73 to 80 constitute the sequence 
number field and аге ignored by the compiler, These can be 
used for accommodating a Sequence or serial number which 
helps in rearranging the cards, should they get mixed up. 


In сазе a 
the first line has a 
the second line сап have 1 to 
continuation line, the third 


be arranged as 


(6) 
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Other Details: The following points should be kept in mind 
while writing programs on coding sheets. 


(i) 


(ii) 


(iii) 


(iv) 


Due to the similarity of characters, confusion can 
arise between the number 0 and the letter 0, the 
number 1 and the letter I, the number 2 and the letter 
Z, the number 5 and the letter S to mention a few. It 
is common practice to draw a stroke through the letter 
0, cross the letter 2, use prominent horizontal 
strokes on the letter I, eto. 

For obvious reasons, it is important to write only one 
character in each square of the coding sheet. 

Except while dealing with the actual text which is 
required to бе printed as output, the blank or 
Space character is ignored by the computer. Spaces, 
therefore, can be used to improve the readability of 
the program. Spaces in Hollerith FORMAT 
specifications, however, are quite important and 
mistakes here can cause program errors. These spaces 
should, therefore, be carefully counted (to avoid 
mistakes, we use the symbol b to specify blank spaces 
in FORMAT statements). 

Punctuation marks and delimiters such as commas, 
Parentheses and slashes are very important and 
mistakes here must be carefully avoided. 


3.6 AN EXAMPLE OF A FORTRAN PROGRAM 


Having gained some familiarity with FORTRAN, let us now see a FORTRAN 
program for a scientific application. 


Example 3-1 


A projectile is thrown up vertically from a given height (H) witha 
Biven velocity (U). We are required to write a program to tabulate its 
instantaneous height (S) and velocity (V) against time (T) as it rises 
and falls. The acceleration due to gravity (G) is known. The interval 
(AT) between successive plots is also specified. 

The velocity and position of the projectile are given by the 


equations 


V 


5 


U-GT 


H + UT - 1/2 GT? 
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The values of V and S can be calculated іп а loop whicn is 
traversed once for each value of T. The value of T can also be 
incremented within the same loop. The process can stop when S crosses 
zero. 

While this is a perfectly acceptable method, it does not take 
advantage of the fact that V' and S' at time T+ T can be obtained 
more simply from the values of V and S at time T as follows: 


ү! 
апа 85" 


V= АУ where V = дД7.6 
5 + Vay. AT where Vay = (V! + V)/2 = V - AT.G/2 


This method will be much faster ona computer, since it needs 
fewer multiplications. However, since each value is computed from the 
previous one rather than de novo, errors due to rounding off of the 
digits could accumulate. Such conflicts between speed and accuracy are 
not unusual in writing computer programs. We shall assume for this 


example that the total number of steps is not large and use this 
approach. 


The complete program is given below. 


With the comments provided, 
it is not difficult to follow the program, 


PROGRAM PROJECTILE 
THIS PROGRAM CALCULATES THE VE 
PROJECTILE. INITIAL HT AND VEL 
ACCELERATION DUE TO GRAVITY Is 
INSTANTANEOUS VELOCITY AND HEIG 
WHEN S CROSSES ZERO. 


LOCITY AND POSITION oF A 
OCITY ARE H AND U. 

G. V AND ARE TBE 

HT. THE PROGRAM STOPS 


Qooooo 


с READ VARIABLES SPECIFIED 
READ (5,10) H, U, G, DELTAT 
10 FORMAT (4(4x, F8.3)) 


с CALCULATE FREQUENTLY USED QUANTITIES 
DELTAV = DELTAT * G 


HDELTV = 0.5 * DELTAV 


C INITIALIZE V, T AND S 


у= 0 
120 
беН 


су 


PRINT TITLE 
WRITE (6,15) 
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15FORMAT( 16HbTIMEDIN bSECONDS, 10X, 12HHEIGHTbINDbCM, 


1 10Х, 18HVELOCITY bINbCM/SEC) 
с PRINTRESULTS 
25 WRITE(6,30)T,S,V 
30 FORMAT(2X, F8.3, 16X,F 10.3, 12X, F 10.3) 
с UPDATETANDV, CALCULATEVAVANDS 


T=T+DELTAT 

VAV =V-HDELTV 

V =V-DELTAV 
=S+VAV* DELTAT 


с CHECKFORVALUEOFS, STOPIFZEROORNEG 
с ELSEREPEATLOOP 
IF(S.GE.0.)GOTO25 
STOP 
END 


This program does not need any TYPE declaration statements 
because all the variables are TYPE real and this is implied by the 
names of the variables. (Names starting with letters other than 
I,J,K,L,M,N imply real variables. See Sec. 4.4.) Frequently used 
quantities (AV, AV/2) are calculated at the start. After initializing 
V, T and S, the title is printed. The loop starts with statement 25 
which prints the values of T, S and V. T and V are updated and VAV and 
S are calculated. A logical IF statement is used to check whether S is 
positive or zero; if it is, control is trensferred once again to 
Statement 25 and the loop is traversed again. If 5 is negative, the GO 
TO is not executed and control goes to the next statement, which is a 


STOP. 


3.7 FLOW CHARTS AND CONVENTIONS 


Figure 3-2 is a flow chart of the program of Example 3-1; it 
corresponds to the program quite closely and can be compared with it. 
As such, it is self-explanatory and can be used to illustrate the 
symbols and conventions used for flow charts. The oval symbol is used 
for start and stop. The trapezoidal boxes are used for input and 
output (the one tapering downwards being for input and the one 
tapering upwards being for output). The diamond is nsed for a decision 
box where branching takes place. Arrows are used to indicate the flow 
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Initialise 
V foU, 
T too 
S toH 


Is S 
Positive? 


Fig.3-2 Flowchart for the 


Program of Example 3-1 
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of control from one box to another and a circle for a junction point 
where control paths merge. | 

For simple programs, flow charts шау not be very essential. For 
complex programs, however, it is very difficult to keep track of the 
flow of control without having a flow chart. Visualizing a program in 
the form of a flow chart is a great convenience and is an essential 
Step before coding large and complex programs. 


3.8 DECISION TABLES 


Flow charts are a convenient means of representing the flow of ken 
in a program. They are, however, rather laborious to draw о 
difficult to follow for complex programs. It is also not very easy 
determine the exact conditions under which a particular box in a flow 
chart gets executed. This requires the tracing of the flow of control 
backwards from that box, A further problem is that there is no 
systematic way in which one can ensure that all the alternatives that 
are likely to occur have in fact been taken care of in the flow Браге, 

The decision table method of representation of the algorithm 
overcomes these difficulties, as the name indicates, this provides for 
a tabular presentation of the procedure. 


Example 3-2 


To illustrate these Points, let us construct a decision table for 
Example 1-5 (Table 3-2), The actions to be taken are 


(1) Read value of N 

(2) Initialise M and F 

(3) Replace M by М+1 and F by F*M 

(4) Repeat (3) an appropriate number of times 
(5) Write resuit 

(6) Stop 


(1) and (2) are to be done initially. (3) and (4) are to be done 

Only if M is not equal to N. (5) and (6) are to be done only if M - N. 
i i is neatly. 

мыз алы that perci to be tested are listed in the 
flow chart. All the combinations of conditions that are expected to 
arise for these tests are also exhaustively listed. For each of these, 
the exact procedure to be followed is specified appropriately. Actions 
are listed in the order in which they are to be performed. If a 
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particular action is to be executed, this is indicated by a cross (x) 
mark. A dash (-) mark indicates that the action is not to be executed, 


Table 3-2 Decision Table for Example 1-1 


1. Read Value of N 
2. Initialise Ма], Ма] 


M=N Ү N 

‘Gd ча Қ dit поје gi 2] ОО ТЕРЕГИ 
3. M = Ма - X 
4, F = F#M - X 
5. Go to step 3 E X 
6. Write result X - 
Te Stop x - 


In some cases, the action to be followed i 
of the result of a Biven test, Th 


The tests may or may 
answer), In the latter case (e.g. Із 


there will be the appropriate number 
сазе, three), 


A positive, zero op negati ve?), 
of columns and entries (in this 


Example 3-3 


The travel entitlement rules of an organisti 
employees with a monthly Salary of Rs, 
travel by air, Persons with a sal: 
tance is 1000 
Conditioned Class) otherwise, Persons with lover salaries can travel 
only E = (First Class), Any one сап travel by air, if this is 
approved b е concerned autho: Р 
матчи to "ip the Situation? T em "e ынйы ыс 
The action alternatives are travel by air ang travel by train 
(Air Conditioned or First Class), The table will therefore have three 


on are as follows: 
2500 or above аге entitled to 
ween Аз, 1800 and Rs, 2500 can 
km or more ang by train (Air 
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rows, The relevant conditions are with respect to salary (Rs. 2500 and 
above, between Rs,1800 and Rs,2500 and below Rs.1800, distance to be 
travelled (1000 km and above ог below 1000 km) and approval for 
air travel by the concerned authority (given or not given), The 
number of possible combinations is 3x2x2 or 12 but not all of these 
are relevant, For instance, distance to be travelled and special 
approval are immaterial if the salary is Ез, 2500 or above, 


Table 3-3 Decision Table For Example 1-7 


Salary GE 2500 LT 2500 LT 2500 LT 1800 - 
GE 1850 GE 1850 


Distance - GE 1000 km LT 1000 km - - 
travelled 


— ше- 


Approval for - - N N Y 
Air travel 


П 


Air travel 
permitted X X X 


Train А/с 
permitted X 


Train (First 
Class permitted) X 


It can be seen that decision tables are most convenient when 
there is a lot of branching in the flow of control, Flow charts are 
convenient when there is much looping, particularly in the сазе of 
iterative procedures. 

With decision tables, it is possible to easily verify whether all 
combinations and conditions that are expected to occur in real life 
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have been provided for. Decision tables, not being pictorial, are easy 
to put into a computer or print out using a computer. They can also be 
used more easily as inputs to an automatic programming system. 


3.9 SUMMARY 


A brief and informal account is given of the various types of 
statements permitted in FORTRAN, and a sdmple program written in 
FORTRAN and the flow chart corresponding to it. The notation for 
describing the syntax of FORTRAN is introduced with the aid of a few 


illustrative examples. The use of decision tables for designing 
computer programs is described and discussed. 


EXERCISES 


1. In the programs cited in the illustrative examples so far, 
identify all 


(i) executable statements 
(ii) nonexecutable statements 
(iii) control statements 

(iv) declaration statements 
(v) assignment statements 


2. Which columns in а punched card forming part of a FORTRAN program 
can have only one hole? 


3. Which are the non-FORTRAN character 


S on the key board of a key 
punch? Where are the 11th and 12th rows о 


f a punched card located? 


4, Which is the missing statement in each of 


(i) А = B+2 
C = Bea 
WRITE (6) С 
STOP 
END 


the following programs 


(41) Xs 1.2 # 1,4 
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(iii) READ A 
А = 2*4 
МВІТЕ (6) А 
END 


(iv) А = 1.24 
WRITE (6) A 
STOP 


5. Reorder the statements in the following program to make it 
executable on a computer. 


MASS = 2.3 # VOLUME 
WRITE (6) MASS 

END 

READ (5) VOLUME 
STOP 


Сһарїег 4 


CONSTANTS, VARIABLES 
AND EXPRESSIONS 


4.1 INTRODUCTION 
Man acquires knowledge of the world mainly by 


observing the objects and events around hin, 
understanding their properties and behaviour and 


discovering the relationships that they bear with 
one another, 


Mathematical notations that 
relationships in the form of law: 
universal validity, 

Examples are 


are useful for expressing such 
S of science have more or less 


The laws of conservation of mass and energy and 
Newton's laws of motion in Classical Physics, the 
law of mass action in chemistry, Kepler's laws in 


astronomy and the law of diminishing utility in 
economics, 


These laws are generally expressed as mathematical equations or 
relationships, The law of conservation of energy, for instance, leads 
to the relationship j 


(1/2) mv? + mgh = constant 


between the kinetic and potential energi 
under the gravitational force of the earth 

Some of the symbols in 
others stand for constants, 


es of a body falling freely 


LI 


the above equation represent Variables and 


A variable із a quantity whose value can change 
from time to time, A constant, on the other hand, 
has the same invariant value at a11 times -at any 


rate over the space ang time over Which the System 
remains under consideration, 
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Whether -a given symbol represents a variable or а constant thus^ 
depends on the context. In the above example, v(the velocity of the 
particle) and h(the height) are variables while m(the mass of the 
particle), and g(the acceleration due to gravity), 1 and 2 are 
constants. On the other hand, in the relationship 


which describes the variation of the acceleration due to the earth's 
gravity with height, g(the acceleration due to gravity) and h(the 
height) are variables while M(the mass of the earth), R(the radius of 
the earth) and G(the universal gravitational constant), and 2 are 
constants. Even the mass of a particle would become a variable in a 
relativistic system. 

The object of writing a computer program is to calculate the 
values of some quantities or parameters (whose values are initially 
unknown), by making use of the relationships that they bear with the 
values of other quantities (whose values are known initially). 

For example, a program could be written to calculate the tax 
payable by an assessee (knowing the tax laws and given the assessee's 
income and other particulars), or.to calculate the velocity of a 
falling body at time T (knowing the laws of motion and given its 
velocity at time T = 0). For such a calculation, a program uses 
several quantities; some of them are constants and others variables. 

In FORTRAN, any entity which can change during the 
course of computation is a 'variable'. 


A number or any other invariant piece of data used 
in the process of calculation, is а 'constant'. 


Variables in FORTRAN are referred to by symbols, names or 
identifiers as in algebra though the notion 'variable' is different in 
the two systems. Constants are represented directly, by their values, 

Notice that any quantity represented by a name is a variable, 
irrespective of whether it does or does not change during computation. 
Suppose we use the symbol K for the constant of proportionality in the 
universal law of gravitation in a FORTRAN program. Even though it 
represents a universal constant, it is still a variable in FORTRAN 

"merely because its value can be changed by writing a suitable 
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statement (say К = К + 1.5); whether or not this happens in actual 
practice is immaterial, 


4.2 VARIABLE NAMES 


Variables in FORTRAN are always referred to by 
names, 


In algebra, single letter names (a, b, x, etc.) are adequate since 


there is no need to deal with more than a few variables at a time, 
This restriction is not acceptable in FORTRAN. 


For variable names, standard FORTRAN permits a 
length of up to six characters, The first 


character in the name must be a letter; others can 
be either digits or letters, 


A variable name is of the following form 


Chart 4 


Variable Name 


Alphanumeric 
(letter or digit) 


== 
¥ Nc 
! L 
\ r * 
“ РА 


~ = 


Examples: 
A 
BETA3 
MASS1 
RIXZMN 
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How does the computer deal with variables? 


Whenever a variable name occurs in a FORTRAN 
program, what is being referred to is the current 
value of that variable, 


The relationship between a variable name and its value in а high level 
language is similar to the relationship between the address of a 
memory location and its contents in machine language. 

For each different variable name used in the program, the 
compiler assigns a specific memory location or address (or a set of 
locations or addresses). For instance, the variable 'A' might. have 
been assigned the location (whóse address is) 241, The current value 
Of that variable is always stored in that location. Each time this 
variable is referred to in a computation, the contents of this 
location are read and made available, When the value of the variable 
is changed, its new value is stored in that location. 

There is considerable flexibility in the naming of variables in 
FORTRAN. It is up to the programmer to take advantage of this 
flexibility. by giving meaningful names to variables. This practice 
makes the program easier to understand; more importantly, it helps the 
programmer himself while he writes his program and even later, 
Examples of such variable names are: LENGTH, TORQUE, VARNCE, TAX, 
LAMBDA, AVERAG, PROFIT, AGE, LIFTIM, TAX2, etc, A precaution to be 
taken is that names of standard library subroutines and functions (see 
бес. 4.8) should be avoided, while naming variables. 


4.3 COMPUTER REPRESENTATION OF DATA 


Each memory location in a computer can accommodate a fixed number of 
digits, The same is true for the registers in the arithmetic unit, Let 
Чз consider say, the digit string 1478326016 stored in a given 
location of a computer with a word length of 10 digits. What 
interpretation does one give to this string? This, naturally, depends 
On the method of representation used in storing this in that location, 

One method of representation would be to use the first digit to 
represent the sign (1 for positive and 0 for negative) and the 
remaining part of the string to represent the magnitude of the number 
itself, The above string would then represent the integer +478326016, 


In this notation only integers in the range +(109-1) сап be 
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represented; also the decimal point is assumed to be fixed at the 
extreme right of the digit string. 

A different method of representation would be needed for real 
numbers, the string being split into say a sign-and-six-digit mantissa 
and а sign-and-two-digit exponent, The above string would then have 
the digits 1478326 for its mantissa to represent +0,478326 and the 


digits 016 for its exponent to represent the scale factor 10716; it 


would thus represent the number 40.178326 x 10716), It is easy to see 


that all real numbers cannot be represented even in this notation; the 
upper and lower bounds for the magnitude (which define the dynamio 


range) of real numbers are 0,999999 x 1099 ana 0.100000 x 10799, 


respectively, Even within this range, only a finite number of discrete 
values are possible, There is thus an approximation or quantization 
error involved, This is known as the 'floating point! notation (so 
called because the location of the decimal point сап shift), 

As mentioned above, the mantissa of a floating point number has 
to be within the range 0,100000 and 0.999999, This ensures that the 
number of significant digits is fixed (six in this case), A number 
which has zeroes immediately to the right of the decimal point or 
significant digits to the left of the decimal point is 'normalized' by 
appropriately shifting the decimal point (so that the mantissa falls 
in this range) and correspondingly incrementing or decrementing the 
exponent (so that the value of the number does not change), 

When a better approximation and/or a larger range are required, 
double precision representation is possible, Two consecutive memory 
locations are used in this notation for representing a real number, so 
that more digits are available for representing the mantissa as well 
as the exponent, 


To represent a complex number, two locations are used, one to 
contain the real part and the other the imaginary part, both in the 
floating point notation, : 

To represent letters and other characters, one has to use a code, 
Let us assume that in the code used, 1! stands for 1,78 for N,32 for T 
and so on, The above digit string would then represent the character 
String ІМТ... The ASCII code (American Standard Code for Information 
Interchange) is commonly used for this, 


It is thus clear that it is possible to represent different types 
of data with equal facility ina computer, While this is a 
convenience, there is-also need for caution, We have already seen that 
the digit string itself holds no information 


аз to the type of data it 
represents, The same string of digits can be interpreted in Several 
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totally different ways depending on the notation used. It is also easy 
to see that the method of manipulating the digit strings for 
performing the different arithmetic operations would also vary 
considerably for the different data types. Compare the way the 
mantissa and exponent have to be operated upon in floating point 
multiplication with the way the digit strings are dealt with for fixed 
point multiplications, It is, therefore, necessary at all times to 
keep track of the type of data that have been stored in each 
individual memory location. Any confusion in this regard would lead to 
serious mistakes. 

Specification of data types for constants and variables enables 
the compiler to deal with them appropriately. 


It is very important to clearly specify the data 
type of constants and variables in FORTRAN. This 
enables the compiler to deal with them 
appropriately. 


4.4 DATA TYPES IN FORTRAN 
4.4.1 Constants 


The word data covers all operands - constants and variables - in 
FORTRAN. Six different data types are permitted. We shall discuss 
below the manner in which constants of each type are written, 


Integer Constants 


An integer constant is a sequence of digits, with 
or without a sign - but without a decimal point. 
The plus sign is optional for positive integers, 


All integer values within the allowed range are 
possible, 


Real Constants 


Real constants permit the representation of real fractions 
regular integers as well as integers too large to be represented "d 
integer constants, 
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Real constants are written as decimal fractions or 


as mantissa and exponent, with the character Е 
separating then, 


Examples are: =1,, 10 


«31,9977Е2 (to represent 9977 x 102), l7 T4E-U, 
eto, The sign « is o 


ptional for positive mantissa and exponent, To 
specify that the constant is real, either an exponent part 
decimal'point or both must occur in the mantissa, 

An integer constant is of the following form 


or a 


Chart 5 


Integer Constant 


Integer numbers can also be represented as real 
constants but the decimal point must occur (at the 
extreme right), 
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A decimal fraction representation of а real constant is of the 
following form 


Chart 6 


Real Constant (Decimal Fraction) 


Integer part (digit string) 
Sign (+ or—) (optional) 


Fraction part (digit string) 


Examples: 
+ 24: 
= · 6432 
34.7 
= 43 -7659 
0-46 


{The integer part or the decimal part 
(but not both) may be absent in a 
decimal fraction] 
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A mantissa and exponent representation of a real constant is of 
the following form: 


Chart 7 


Real Constant (Mantissa and Exponent) 


or decimal fraction) 


Mantissa (integer constant 
Exponent 
(integer constant) 


The mantissa represents 


exponent, 
represents 


74.3 


& [E] €) 


Examples: 


Je Е 4 
1:25 E —3 

ene. 1$ ЕЗ 
+2-34 E +6 


the magnitude of the number and the 


the scale factor. The number 74.3 ЕЗ, for instance, 


x 1073 or 0.0743 


Double Precision Constants 


Double precision constants permit a greater d 
due to the larger number of significant digits 


precision 


than real constants. 


Double precision constants must have the letter D 
occurring in them, separating the mantissa and the 
exponent. They are otherwise identical in 
structure to the mantissa апа exponent 
representation of a real constant, 


ynamie range and, 
(mantissa), 


better 
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Chart 8 


Double Precision Constant 


Mantissa (integer constant 
or decimal fraction) 


Exponent (integer constant ) 


m (0) (е) 


Examples: 


103 
ЛАЗЕ 12 


Complex Constants 


Complex constants consist of a real part апа an 
imaginary part. Both are real numbers, The 
Parts are separated by a comma , 
Parentheses. 


two 
and enclosed in 
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A complex constant is of the following form 


Chart 9 
Complex Constant 


Real Part (real constant) 


Imaginary part (real constant) 


HOOH 


Examples : 
(2, 4-3E-2) 
(4-, 2.) 
(-3-14, 2-46) 


А Тбе ranges prmissible for constants of various types are 
different on different machines, For numerical computations the 
above types of constants would seem to be adequate, , 


Boolean Constants 


It would be convenient to have, in addition, constants of another 
type - Boolean or logical. These represent the values that 
conditional expressions (relational operators Operating on 
arithmetical operands) can assume. For example, the relational 
Operator ‘equal to! operating on the Operands A and B (A .EQ. B) gives 
the result true if A and B have the Same value and false otherwise, 


Boolean constants have only two values. These are 
represented as .TRUE, апа FALSE. 
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Hollerith Constants 
Even though FORTRAN is intended for numerical computations, there 
is need to deal with textual information. Titles, comments and 
descriptive text are necessary, for instance, to make the computer 
output readable and self-explanatory. This is possible by using 
Hollerith constants. 


A Hollerith constant is a string of alphanumeric 
characters and special symbols. 


A Hollerith consonant is of the form: 


Chart 10 


Hollerith Constant 


Character string 


Character 
(letter or digit) 
or special character 


Length of string 
(integer constant) 


[ ] 
(D [Hi CO се» 


Examples: 
THFORTRAN 


5HSbObS 
3H(b) 
ІНж 


A Hollerith constant is characterised by the occurrence of the letter 
H. The integer number to the left of Н specifies the length of the 
character String which occurs to the right. The string can include all 
Permitted FORTRAN cnaracters and even spaces. To avoid confusion, 
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spaces are indicated by the lower case letter b in Hollerith 
constants, e.g. 


1OHANDbEXAMPLE 


1.4.2 Variables 


The "type" of a constant, as ve have seen, can be determined by the 
мау it is represented, What about variables? 


The type of a variable is indicated by a Type 
Declaration Statement, 


Variables with numbers following them (e.g. VECTOR(2,3)) are 
array elements and will be explained in 5ес.7.2. For the time being, 
these can be taken to be essentially equivalent to other variables, 
Such examples will occur at several places in the text, 


The Type Declaration Statement occurs at the 
begining of a FORTRAN program, 


A constant is identified as belonging to one of the above types 
depending on its the value, A variable is defined as belonging to one 
of the above types depending on the value it is expected to take, An 
integer variable can take as its value any permissible integer 


constant; the value of a real variable can be any permissible real 
constant and so on, 


We have emphasized earlier that no ambiguity with respect to data 
type can be tolerated in computer representation of data, This is 
because the ваше digit string сап represent different values for 
different data types, In the сазе of constants, the conventions we 
have discussed above indicate the data type intended in each сазе, For 
variables, explicit declaration of type is required, 


For convenience, FORTRAN follows a convention where all variables 
whose names start with the letters I, J, K, L, M and N are taken as 
type integer, and all others as type real, 


unless otherwise declared, 
Where this convention is followed, 


no type declaration is necessary. 
For example, type declaration would be redundant for the real 
variables T and HEIGHT and the integer variable INTER, It must be 


remembered that COMPLEX, DOUBLE PRECISION and LOGICAL variables have 
always to be explicitly declared, 
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A Type Declaration Statement is of the following form: 


Chart 11 


TYPE Declaration Statement 


Type specification 
integer / real/ 

double precision/ 
complex / logical 


Variable name or 
dimension specifier 


Examples: 
INTEGER COUNT,X (100), FREQ 
REAL MASS 
DOUBLE PRECISION MATRIX (4,7,9),PI 
COMPLEX VECTOR (2,3) 
LOGICAL RESULT, MAN 


X(100), MATRIX(4,7,9) and VECTOR(2,3) 
are dimension specifiers for arrays and are 
covered in section 7-2. 


4.5 ARITHMETIC EXPRESSIONS 


We have seen that tne arithmetic unit of a computer can deal with at 
the most two operands at a time and that it can perform only the basic 
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arithmetic operations оп them. This restriction is thus inherent to 
programming in machine language. FORTRAN, on the other hand, offers 


the facility of specifying complex sequences of computation by writing 
the appropriate arithmetic expressions, 


The operators permitted are the plus (+), minus (-), the asterisk 
(*) ana the slash (/) to signify add, subtract, multiply and divide 
respectively. The operation of exponentiation is indicated by the 
double asterisk (##), All the above operators are binary (they require 
two operands) with the exception of + and - which can also be unary 
(i.e., take a Single operand). The unary operator - preceding an 
operand changes its sign. The operator + leaves it unchanged, As in 
algebra, complicated and long expressions can be written in FORTRAN 
using constants, variables and operators, When necessary, parentheses 
can also be used and have the Same significance as in algebra, 
however, since only one type of parentheses is available, they can be 
hested within each other and are evaluated innermost first. Two 


opera ors must never appear consecutively nor should two operands; 
е.6.-- b and 2b would be invalid expressions. 


An arithmetic expression consists of one or more 
terms, 


Terms are linked by the operators + and - 


e.g. А, А+В-С+р 
A term consists of one or more factors, 


Factors are linked by the operators * and / 
e.g. E, F*G/H*J 
m alone or a base 


he operator ## 


| e.g. К, M**p 
A base term and a power term сап be 


A factor consists of a base ter 
term linked to a power term by t 


unsigned constants e.g« 2, 34 
variables e.g. MASS 

an array element e.g. K(2,3) 

a function reference e.g. SIN(X) 

an arithmetic expression 

in parentheses eg (A+B/C-D#GH EK) 


An unsigned arithmetic constant is an arithmetic constant which 
is not preceded by tne optional sign. Array variables and function 
reference will be discussed later. Table 4-1 gives са few examples of 
valid arithmetic expressions. 

Due to the simil 


arities between FORTRAN conventions and those of 
algebra, 


а few common mistakes are generally made while writing 
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expressions. These are listed in Table 4-2 and should be carefully 
avoided. 


amples 


Table А-1 Ex р of Valid Arithmetic Expressions 
Sl.No. Туре of Expression Example 


(1) Single term AS 23, 2 
(2) Single term preceded 
by +or- +2, -A 
(3) Binary operators linking 3 
terms А+2., 2.-3., А/В, ДЕЯ2, 2 тә 
(4) (2) or (3) above, but I**J – 2, 1##(Ј-2) 
with valid expressions А+2./3., (A-2.)/3. 
as operands (A«2.**(A«2./3.))/(A-2./B) 


MEME элне МЫШ ee 


Table 4-2 Examples ОҒ Common Errors in FORTRAN Expressions 


Type of error Example Remarks 
Consecutive operators 6+ -3, I/-3, Should be 6-3, 1/(-3), 
4* -2 Ц%(-2) 

Missing parentheses AX* BEC ` Ambiguous; should be 
(A**B)**C ор АЯ (кс) 

Missing operators 10.А, 2.143 Should be 10.%4, 2#143 

Unmatched parentheses (A-(B4C) *D**E Should be (A-(B«C) )tpittg Бр 
(A- (В+) 5p) tg 

Use of Hollerith 2/3Hb10 Should be 2/10 

Constants h 

Mixed mode expressions Ц%%3, Not allowed in some 


compilers; should be 
HEX? or Дз. 
I**A Not allowed in Some 


compilers 
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Chart 12 


Arithmetic Expression 


Unsigned constant 


— 


i 
1 

2! 
1 
1 

! 

J 


Pom 
ee 
it 


1 
I 
1 


Examples : (See Table 4-1) 
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4:6 EVALUATION OF EXPRESSIONS 
4.6.1 Order of Precedence 


Having gained familiarity with FORTRAN expressions, let us examine how 
to evaluate them, Evaluation is straightforward if an expression 
contains only one operator, Where there are more operators than one, 
the practice followed is essentially the same as that of algebra, 

The rank ordering or binding strength of operators (which 
determines their order of precedence) is as follows: 


First priority 
Second pricrity 


exponentiation 

multiplication and division from 
left to right 

negation, addition and subtraction 
from left to right 


Third priority 


In the expression A - B * C ## D, exponentiation is performed 
first, multiplication next and subtraction last, 
For operations with the same binding strength, а left to right 


order is followed, For the expression 


А“вВ/стрте-иұ 


the following is а step by step indication of operations performed: 


First step : С ** p is evaluated, 
exponentiation 
Second step : B/(C**D) and then (B/C**p)*g 


multiplication and 
division from left 
to right 


Third step : A + (B/C**D*E) and then 
addition and subtraction : (A+B/C**D*E) = F 
from left to right 


Final value : A + B/C*SD*E = F 


This ieft to right order for operations with the same precedence 
is not followed in some compilers. It would, therefore, he best to 
avoid expressions whose intepretation сап be ambiguous, e.g. A/B*C 
Should be written either as (A/B)*C or A/(B*C), 
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1,6,2 Parentheses 


Parentheses are permitted in FORTRAN ex 


pressions and сап be uséd to 
override this order of precedence, 


Evaluation of terms enclosed in Parentheses has 
precedence over other operations, 


Nesting of parentheses (one pair within 
permitted, In such a case, 
highest precedence, 


In algebraic expressions, 


another and so on) is also 
the innermost pair of parentheses gets the 


parentheses of different types can be 
usec where nesting is needed; this helps to avoid confusion, In 


FORTRAN however, only one type of parentheses is allowed. This can be 
somewhat confusing; matching of left and right parentheses is quite 


important and must be checked carefully. An expression with unmatched 
parentheses is invalid, In the expression 


A+B/C®*( A+B/C#D## (E-F#(G-H))) #E-F 


(G-H) is evaluated first, Unravelling the ord 


9" of precedence of 
operations in this expression is left as an exer 


cise for the reader, 


4,603 FORTRAN Arithmetic 


Addition, subtraction, multiplication and div 
available in most modern computers as Primitive operations, 
Consequently, the evaluation of FORTRAN expressions using these 
operations is straightforward. Exponentiation, though provided asa 
primitive operation in FORTRAN, is not so in the machine instruction 
code, This has, therefore, to be implemented in a different Way. Where 
the exponent 1з a small integer, 


exponentiation is accomplished 
through multiplication (e.g. A**3 = A*A*A, ебо,), 


is а real number, exponentiation is achieved by usi 


ision are directly 


Where the exponent 


ng the relationship 


8 log,R 
se 


Data type is preserved unde 


r the arithmetic 
operations permitted in FORTRAN, 
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If the operands are integers, the result is an integer; real operands 
yield real results and so on. This does not create any problems except 
in the case of integer division where the ratio of two integers is not 
always an integer. For integer division, only the integer quotient is 
retained and the remainder is ignored, 8&.g. the operation 13/5 yields 
2. This amounts to evaluating the fraction (2 3/5), truncating it and 
retaining only the integer part. The truncation error involved in such 
cases can be quite substantial (99/100, for instance, yields 0) and 
can cause major difficulties if the programmer ignores this fact. 


The commutative law does not hold for integer 
arithmetic A/B*C is not the same as A*C/B, e.g. 
11/6*5 yields 5 while 11*5/6 yields 9. 


There are errors involved even in the case of real data. The 
reason for this, as explained earlier, is that while the number of 
different real numbers possible between any two limits (say 0 and 1) 
is infinite, only a limited number of magnitudes of real numbers can 
be represented on the machine. In a decimal machine where real numbers 
are represented with a six digit mantissa and a two digit exponent, 
all real numbers between the values .666666 and .666667 would have to 
be rounded off and represented either as .666666 or as .666667. 

In such a machine, evaluatirig the expression 1./7. gives rise to 
the rounaed off result .142857 instead of 0.142857142857(recurring). 
Consequently, 1./7.%7. gives rise to .999999 instead of 1. Thus, A/B*B 
may not be equal to A. È . 

Because computers use the binary system of number representation 
(see Appendix 1), round off errors occur even for computations such as 
1/100.*100 (decimal). 

Consider the addition of two numbers A(0.123456) and 
B(0.000000123456). These two numbers are represented in the machine as 
0.123456 Е00 and 0.123456 E-06 respectively. The sum of the two 
numbers, which is 0.123456123456 is rounded off and represented as 
0.123456 which is A itself. Thus, А + B can be equal to A though B is 


nonzero. 


The cancellation law of algebra fails for floating 
point arithmetic. 


Let us now try adéing three numbers A(=111117 E00), В(=222227Е00) 
апа C(=111111 E01) in two different ways. А + B becomes 333344E00 and 
(A+B) + C becomes 1444454 which is roundea off and represented as 
144445E01. A + C is 1222227 which is rounded off to 122223Е01; (A+C)+B 
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becomes 1444457 which again is rounded off to 144446601. Thus (A+B) + 
C need not be equal to (A+C) + Б. 


The associative law of algebra is also not 
applicable, 


There is need for caution regarding round-off and 
other errors in FORTRAN arithmetic, 


4.6.4 Mixed Mode Expressions 


All operands in an expression sh 
compilers Сэ not accept mixed m 
this rule is thac 
exponents, 
however, 


ould be of the same data type as many 
оде expressions. The only exception to 
expressions of other types can have integer 
The more recent compilers permit mixing of modes, It would, 
be good practice to avoid mixed mode expressions since mode 
conversion is time-consuming, 

Evaluation of mixed mode expressions follows a rather involved 
Protocol. To understand tnis protocol, it would be convenient to 
visualize the Various data types as being rank ordered in the 
decreasing order of dominance as follows: 


complex, double, real, integer 


For a binary operation in mixed mode (an operation with two operands 


of two different data types) the operand of the less dominant data 
type is first converted to the more dominant type. Type integer can be 
converted into type real (e.g. 2 into 2.) and type real into type 
double (e.g. 2.134 into 0.2134D1). These conversions involve no loss 
of information, (In the type integer to type real conversion, there 
could, of course, be an error if the mantissa cannot accommodate the 
number.) After this, evaluation can take place as usual, Since both 
operands are now of the same type. The data type of the evaluated 
expression will be that of the more dominant operand, e.g, 


if one 
operand is complex and the other real, the result will be 


complex, 
conversion is quite 
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4.6.5 Expressions that cannot be Evaluated 


There are a few expressions which, though they are permitted according 


to the rules of syntax, cannot be evaluated, 
Examples are: 


(1) Expressions of the form A**B where the base and the exponent 
are both zero (0**0). 

(2) Expressions of the form A**B with a negative base and real 
exponent. 

(3) Expression of the form A/B where the denominator is zero. 

(4) Real and integer expressions whose values exceed the maximum 
numbers that can be represented in the machine (overflow). 

(5) Real expressions whose value is such that the exponent is 
negative and exceeds in magnitude the maximum value that can 
be represented in the machine (exponent underflow). 


4.7 LOGICAL EXPRESSIONS 


As remarked earlier, it often becomes necessary to check whether 
specific relations are satisfied between arithmetic expressions so as 
to decide on the course of the computation to be performed 
subsequently. This is accomplished by the use of relational operators. 
The relational operators permitted are: 


.EQ. to signify is equal to 

.NE. to signify is not equal to 

.LT. to signify is less than 

.LE. to signify is less than or equal to 


.GT. to signify is greater than 
.GE. tc signify is greater than or equal to 


All these operators are binary and need two operands each. The 
operands can be arithmetic constants, variables or expressions and can 
be either type integer or type real. Type complex is not permitted, 


A relational or logical expression can be formed 
by a relational operator operating on arithmetic 
expressions. 
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Chart 13 
Relational Expression 


Relational operator 


Arithmetic expression 


Arithmetic expression 


© (D (9 


Examples: 


X-GT- Y 
А · £Q-((B+C)/D) 


The value of the relational expression is .TRUE. if the relation is 
Satisfied and .FALSE. otherwise. For example, the expression X.GE.Y 
is .TRUE. if the value of X is greater than or equal to the value of Y. 


Alogicalexpressionconsists ofoneormore terms, 
Terms are linked to each other by the operator .OR. 
e.g. А, D OR. C .OR. D 


А term consists of one or more factors, 
Factors are linked to each other by the operator AND 
e.g. E, F .AND. С 
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Chart 14 


Logical Expression 


Logical constant 


Logical Variable 


Logical expression 
in parentheses 


Relational expression 


Examples: 


(See Table 4-3) 
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A factor is 


. a logical constant 


e.g. .TRUE. 
. a logical variable 


e.g. К 
a relational expression 

e.g. (А + 3) „СТ, B 
a logical expression in parentheses 


e.g. (А „ОБ. B .AND. C „ОВ. D) 
. any of the above preceded by a .NOT. 


e.g. .NOT. B .GT. С 


Table 4-3 Examples of Simple Logical Fxpressions 


Sl.No. Type of expression Example Value 
(1) Single terms .TRUE., .FALSE., 
А 
(2) Terms Preceded .NCT. .TRUE., 
by .NOT. .NOT. A .FALSE. if A is 
. TRUE. 
TRUE. if А is 
.FALSE. 1 
(3 Factors linked by A .AND. B -TRUE. only if 
«AND A and B are 
both .TRUE. 
TRUE. if either 
i .OR. B . 
Terms linked by .OR. A .OR ioe 
is .TRUE. or, if 
both are .TRUE, 
(4) Sl.No.(2) or (3) above „МОТ. (A. AND.B) Left as ап 
the operands being (.NOT.A) .AND. (B.OR.C) excercise for the 
valid expressions reader, 


(A.OR.B) .AND. (C.AND.D) 
E.AND. .NOT. X.GT.Y .OR. 
(Y.GE.Z) .AND. C .AND. D 


uu Eee —— a 


In the last example X,Y and Z are arithmetic expressions while A, B, 
C, D and E are logical variables, Logical expressions, like arithmetic 
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expressions, are evaluated starting with the innermost parentheses and 
working outwards, The order of precedence between the various types of 
operators is as follows: 


Arithmetic operators (their order of precedence 
has already been dealt with; see Seo, 4.6.1) 
Relational operators (the question of order of 
precedence as between different relational 
operators does not arise since a relational 
logical expression can contain only one relational 
operator) 

Logical operators 

(in the order .NOT. , „АМ. , and .OR.) 


First priority 


Second priority 


Third priority 


D.AND, „МОТ. (X**2«y.3) .GT. (7+2) „ОВ. (A.GE.B) .AND.C 


Ó— — айы ықы -------- ist step 


нк ae = 2nd step 
—€—— A 3rd step 
— an 4th step 
---------- ----.... 5th step 


4,8 FUNCTION REFERENCE 


4.8.1 Library Functions 


The basic arithmetic operations available in FORTRAN, while they are 
adequate for all computations, are not powerful enough. There is 
frequent need for the evaluation of standard functions (such as square 
root. cube root and other arithmetic functions; sine, cosine, arcsine 
and other trigonometric and hyperbolic functions; logarithms, 
exponents and other algebraic functions) during the course of normal 
computation, It would be too tedious to implement these functions in 
terms of the basic operations, FORTRAN offers the facility of 
evaluating such functions directly by using function operators, The 
expressions SQRT (X), SIN (Ү), АТАМ (7) for instance, are valid and 
cause the evaluation of the square root, sine and arctangent functions 
of the variables X, Y and Z respectively. The above examples of 
functions all take a single argument or operand, There are also 
functions which take more than one operand, An example is the function 
АМАХ(Х1,Х2,.) available in some systems which delivers as its value 
the maximum among the arguments X1, X2,4., etc, There exists a set of 
standard or intrinsic functions which сап be used in arithmetic 
expressions, The arguments of such functions oan be constants, 
variables or expressions. 


96 Programming in FORTRAN 


4.8.2 Data Type of a Function 


The nature of the function determines th 


е data type permitted for the 
operand. For example, ABS(X) whic 


h calculates the absolute value of 
the operand can take a real operand while trignometric functions can 


take real or complex operands, The evaluated function and the operand 
are usually of the same data type. Evaluation of trigonometric and 
some other functions for different data types is possible by using 
appropriate function references, CCOS(C) could evaluate the complex 
cosine of a complex operand, DCOS(Z) the double precision cosine of a 
double precision operand and COS(R) the real cosine of a real operand, 
The standard (or library) functions available with eacn implementation 
are listed in the users’ manual of the installation. 


A function expression can be used as an 


operand in a FORTRAN expression in the same manner 
as a variable, 


Chart 15 


Function Reference 


Argument list 


~ [ Argument (expression) | 


Examples: 
SQRT (X) 
АТАМ (3-7432) 


SIN (А +K*(B+C)) 
АМАХ (ХІ, X3, X4, 10-3) 
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A function can have one or more operands. An example of a 
function with several operands is MOD (I,J) which delivers I modulo J 
as its value. 

Evaluation of functions has higher precedence than any other 
operation in evaluating an expression. The expression 
(B+3*(SIN(X)##2))/EXP(Y) has as its value 


{В + 3 sin? Q0)/e! 


4.9 ASSIGNMENT STATEMENTS 


A FORTRAN expression specifies to the computer the sequence of 
calculations that have to be performed to evaluate the expression. In 
order to get access to the value so computed, either for further 
computations or, say, to print it out, it is necessary to store it (in 
one or more locations) in memory. This is accomplished by causing a 
variable to assume the value of the expression and is done by means of 
an assignment, or replacement statement. 

An "equal to" (=) sign in algebra implies an assertion that the 
left and the right hand sides are equal. In FORTRAN an "equal to" (2) 
sign signifies an instruction to the computer that it should compute 
the expression on the right hand side and assign this as the value of 
the variable on the left hand side. 


The "equal to" (=) sign in FORTRAN does not have 
the same significance as in algebra. 


It signifies an instruction to the computer that the variable on 
the left hard side must assume the value obtained by computing the 


expression on the right hand side, and can be understood to mean 


"becomes* 


Inalgebra, A= B means A is equal to B. 
In FORTRAN, A = B means A becomes B. 


The simplest type of an assignment statement is one where the 
expression on the right hand side is a constant, e.g. A = 2. This 
statement causes the previous value of A to be discarded and be 
replaced by the new value 2. An assignment statement where the 
variable on the left and the expression on the right are arithmetic 
types (integer, real, double or complex) is called an arithmetic 
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assignment statement. A logical assignment statement is one where both 
are type logical, e.g. 


TRUTH = .TRUE. 

L = L1 .AND. L2 

L3 = А .GT.2 

TON = P OR. K Т.Т 


An assignment sta 


tement is characterised by an ‘equal to! sign 
(=) following a variabl 


е name, It is of the following form 


Chart 16 


The Assignment Statement 


ОШО 


Examples : 
I=] 
ENERGY = Мж CxxZ 


K12 = К12 +3-4 

BLOCK = MN+3-23/K1 

L =, LT: AND- L2 

із = A- СТ: В : AND -(Х+2) : EQ- Y 


No ambiguity is Caused 
inF 
left hand side occurs in th RUE. 


ig AN even if the variable on the 
such a case, the old value ОР the y 


Sion on the right hand side, In 
ariable is used to evaluate the 


Constants, Variables and Expressions 99 


expression. After this evaluation is performed, the value so obtained 
replaces the earlier value of the variable. Consider the assignment 


I = I+1 


If the value of I was 4, this statement causes I to assume the new 
value of Ц + 1 or 5. ла 

Ordinarily, the left and the right hand sides in an assignment 
statement would be of the same data type. It is, however, not 
necessary that this be so. In case the variable on the left hand side . 
and the expression on the right side are of different data types, the 
latter is evaluated as we saw in Sec. 4.6 and then converted into the 
data type of the variable. 

Consider the assignment statements 


I 
R 


2. * 3.74 
3-2 


The values assigned to I and R, it can be seen, will be 7 and 1. 
respectively. 

It will be noted that, in the first case, there is loss of 
information, since a real number 7.48 has been truncated to make it an 
integer. In general, such loss of information can take place whenever 
there is type conversion from a more dominant to a less dominant data 
type. 

Until one acquires enough practice and familiarity, it would be 
good practice to avoid mixed mode expressions and mode inconsistency 
between the two sides in arithmetic assignment statements. 


1,10 SEQUENCES OF STATEMENTS 


The use of intermediate variables makes it.possible to replace a 
single stctement in a FORTRAN program by an equivalent sequence of 


simpler statements. 
The statement A - B « C/D**2 can be repiaced by the sequence 


DP = рок 2 
CP = C/DP 
А = В+ CP 
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In fact, in this particular case, it is not even necessary to use 
intermediate variables; the following sequence accomplishes the same 
result. 


A= рж 2 
А = C/A 
А= В+А 


In either оазе, it is important to note that the order of н 
statements із important, Interchanging them results ina differ i 
expression’ being computed, 


Use of intermediate variables can be useful if similar 
expressions are to be calculated repeatedly. Consider the sequence 


А = (B * C/D) + 2 
E = (В # C/D) + 3 


This sequence can be replaced by 


Е = (B * с/р) 
А = Е+2 
Е= Е +3 


The latter Sequence saves computing time because B * C/D is 


computed only once, while for the former sequence the expression is 
computed twice, 


EXERCISES 


1. Can the following occur as valid constants or expressions ina 


FORTRAN program? If so, identify their syntactic category. For those 
Which are invalid, make the minimal alterations necessary to make them 


acceptable, 
(i) 0 
бі) 1^ 
(ii) 2.5/6 
(iv) 100 
(v) -4,300 
(vi) 344/7 
(vii) 2.000 
(viii) +35 


(ix) 2Е6 
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(x) h.6E-T 
165210) 0.0 
(xii)  23.HE6.5 
(xiii) 4D 


(xiv) | 4HCONSTANT 
(xv) 2 H12 
(xvi) 6H 2*4/5 
(xvii) TRUE 
(xviii) (.FALSE.) 


2. The following entities are both valid. What do they mean? 
(i) 1.23-E12 
(ii) 1.23E-12 


3. Identify the invalid expressions in the following and make 
minimal changes to correct them. Express them as the equivalent 
algebraic expressions. 

(i) LMN//-3 

(ii) 6**2 

(iii) МН 

(iv) 10. TIMES 

(v) 2M+1/NM+1 

(vi) +293 E-7-4 

(vii) 3%(3,3) 

(viii) А+-В 

(ix) 2./4H123 

(x) 2./H123 


Ц. The following expressions are invalid or ambiguous due to 
unmatched or missing parentheses. Supply the missing parentheses (in 
more than one way where possible) and write down the equivalent. 
algebraic expressions in each case. 

(i) A* (B+C* ( (D-E+F ) 

(ii) А**В**С 


5. Evaluate (А/В#С) - (А#С/В) where А, В and С are 1, 2 and 4 
respectively for the eight combinations where A, B or C can each be 
either type real or type integer. 


6. Evaluate (1/4) * (J/I) where I is greater than, equal to or less 
than J. 


7. Express the following numbers as the nearest floating point 
(decimal) constants for the hypothetical computer described and 
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calculate the error involved. 


1/7, 2/3, \/З, T , tan 30 , 10/7, 1033/7 


8. The numbers of Exercise 7 were stored in the hypothetical 
computer as floating point constants but were mistakenly read and 
Subsequently used as integers. Calculate the error involved. 


9. The constants of Exercise 7 were 


assigned as values to integer 
variables. Calculate the error involved. 


10. Plot the maximum possible round-off error against magnitude for 


the floating point mode of representation of numbers in a computer 
(use a logarithmic Scale). 


117: Write an algorithm for the addition of two floating point 
numbers. 


12. Express the three cube roots of 1 as FORTRAN complex constants. 


13. Write valid FORTRAN expressions for the diagonal of a cube, the 
volume of a Sphere, the surface area of a cone and the force of 
attraction between two electrical charges. 


14. Are there any expressions in algebra which cannot be expressed 
8S valid FORTRAN expressions? 


15. Caleulate the values of 
expressions for) the variables i 


after making the necessary corr 
(i) 


(or write the equivalent algebraic 
n the following FORTRAN expressions 
ections if any. 


е urat de seo 
(ii) A! 127%: 5 р, 
(Git) д, = 2/3 - 4 
(iv) As (5/2) © 472 
(v) AY = (5723) * (1/2) 
(vi) А = (5./2,) * (1./2) 
(vii) -| Rate (5/2) # 1/2 
(viii) A = (5/2) * (1/2) 
(ix) М = А #ц 
(к) A*4 = A4 


16. Verify whether thé following two logical expressions are equivalent. 
(1) A EQ. B 


(ii) .NCT. (B .NE. A) 
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17. Can each of the following expressions be rewritten without using 
the relational operator which occurs in it? 


(i) A .NE.. B 
(11) А .GT. В 
(334) А то В 
(iv) .NOT. А 
(v) АЕ. В 
18. Make the necessary corrections in the following logical 


expressions and construct truth tables for them where possible 
(consult Appendix 1). 


(i) X .AND. .NOT. Y 
(ii) А .GE. 4,3 
(iii) X .AND. Y .OR. Z .AND. W 
(iv) А ДЕ. B .OR. L 
19. Which of the following pairs of logical expressions have 
different values? 
(i) А .AND. В .OR. С 
А .AND. (В .OR. C) 
(ii) (A .AND. B) „ов. C 
A .AND. B .OR. C 
(iii) (.NOT. А) .OR. B 
«МОТ. (А .Ов. B) 
20. Which of the following computations would be the fastest and 
why? 
(4) A = 2 # TANF(X) 
(ii) A = TANF(X) + TANF(X) 
(iii) A = TANF(X) 
AzA+A 
21. Is the following sequence of statements valid? If not, make 


the necessary corrections to validate them. 


REAL 


ТҮК 


INTEGER К,Х,М 


REAL 


M 


LOGICAL M2 X 
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INPUT/OGTPUT STATEMENTS 
AND SIMPLE PROGRAMS 


5.1 GENERAL REMARKS 


We have so far seen how mathematical calculations can be performed in 


FORTRAN. The exercises at the end of Chap. 4 give us an appreciation 
of the range and variety of calculations that are possible. о 
know ledge we have So far does not, however, permit us to write usefu 
programs, The main reason Гог this is that we have not yet seen how to 
input data into tne machine or how to cause it to make the results 


available to us, The use of constants, of course, permits us to insert 
data as part of the program. 


An output statement is necessary to cause the 
machine to transmit data ^ontained within its 
memory through an appropriate output unit, 


Knowledge of arithmetic and output statements permits us to write very 


Simple programs. The data used by such a program cannot, however, be 
changed without changing the program itself. 


An input statement permits data which is not part 
of the program to be fed into the machine, This is 
necessary if the same program is required to 
operate on. different data sets at different times. 


5.2 OUTPUT STATEMENT : OUTPUT OF HOLLERITH OUNSTANTS 


An output statement makes it possible to transfer out of the machine 
values of one or more constants or variables. The simplest output 
operation is printing a Hollerith constant since it is already in the 
form of alphanumeric characters, Consider the statement pair 


WRITE(2, 30) 
30 FORMAT( 12H bTITLEDNO.b1) 
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The first statement specifies to the machine that a print 
operation is to be carried out on peripheral unit number 2, It also 
specifies that the information necessary to perform this is available 
in statement 30. In this case, statement 30 specifies the 'format' of 
the print out in the form of а Hollerith constant. The FORMAT 
statement, as long as it bears the appropriate label (or number), can 
occur anywhere in the program. The output in the above case will be 


TITLE NO.1 


A number of Hollerith constants can be included ina FORMAT statement, 
Separated by commas, €g. 


30 FORMAT (BHbTHISbIS, 7THDADSAMP, SHLEDOFDAN, TH bOU TPU T) 


It is easy to see the output that results from this statement. 
Note that the length of each Hollerith constant can be different and 
that words can be split even in the middle as long as spaces are 
counted appropriately. A common mistake in formats using Hollerith 
constants is the improper counting of spaces. 


5.3 FORMAT-FREE OUTPUT OF VARIABLES 


We saw how textual information can be output from the computer. We can 
use a FORMAT-free output statement for the output of variables used in 
a program. 

The statement 


WRITE (2,9) A,Q,L, MASS 


causes the output of the values of the variables A,Q,L and MASS on 
unit 2. These are printed, one after the other. 

In FORMAT-free output, the number of variables that can be 
printed per line is fixed. Each WRITE statement causes a new print 
line to be started. Integer variables are printed as they are, Real 
variables are usually printed in the mantissa and exponent form, 


FORMAT-free output is a limited facility available 
for use by beginners or in сазе of simple 
applications. 
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Some installations do not provide this facility at all. In 
others, the manner of implementation may be somewhat different from 
the above. The user should therefore check the FORTRAN manual of the 
installation for details, 


before using this statement, 
The statement is of she form: 


Chart 17 


FORMAT - free WRITE statement 


Logical unit number 
(integer constant 
9r integer variable) 


WRITE] [0 00 [190] 0) 


Examples 


WRITE (4,%) A 
WRITE (7,X) MASS, VECTOR (4), T 


5.8 SIMPLE FORTRAN PROGRAMS 


5.1 А Sample Program 
We now have the 
define variables, 


these variables з 
former, 


essential tools for writing simple Programs, We can 
assign values to them, write expressions involving 

o as to evaluate other variables depending on the 
and output the latter. 
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Example 5-1 


Our first program shall be a trivial one, for evaluating a simple 
arithmetic expression consisting only of constants, 


C PROGRAM TRIVIAL 
INTEGER VALUE 
VALUE = 2. +(3.-1.4)/2, 
WRITE(9,*) VALUE 
STOP 
END 


It is easy to see that the value of the expression on the right 
hand side of the assignment statement is 2.8. As this value is 
assigned to an integer variable (as declared in the type declaration 
statement), it is truncated and the variable assumes the value of 2, 
This is printed out on unit 9. The next is a STOP statement which 
brings computation to a stop, The END statement signifies the end of 
the program text. 

What is the effect of deleting the type declaration statement? 
Once this is removed, the variable VALUE is taken implicitly to be 
real and assumes the value of the expression on the right, viz. 2.8, 
This is printea out, 


5.4.2 STOP, PAUSE and END Statements 


In the above example, we have used the STOP and END statements, Let us 
now familiarize ourselves with this class of statements, 


A STOP statement is an executable statement used 
to bring computation to a stop. It is necessary to 
include in a program at least one STOP statement, 
to be executed after the desired sequence of 
computations is performed, 


It is easy to see that a STOP statement need not be the last 
executable statement іп the text of a program, It -is possible 
(depending on its structure) for the program to containa number of 
branches, each of which might terminate separately; in such a case the 
program can contain more than one STOP statement, 

The display flag, if included, is displayed on the! machite 
console (or printed out) when the STOP is encountered and is useful in 
tracing which particular STOP in the program has been executed, 
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The flag has to be an octal number (an unsi gned number where each 
digit can take any value between 0 and 7; see Appendix 2). In some 


implementations, the display flag can be a dea mal mmber, 
These are of the following form: 


Chart 18 
The STOP Statement 


Display flag 
(octal number) 
(optional) 


STOP} ín) 


Examples: 
STOP 
STOP 432 
STOP 72 
STOP 432 


А PAUSE statement also eauses computation to stop, 
but it permits restarting the program from the 
ваше point, 


When restarted, the program starts with the statement immedi ately 
following the PAUSE statement. A PAUSE with a display flag has an 
effect similar to the corresponding STOP. Such a PAUSE statement can 
be useful to monitor the branching behaviour of the Program; by 
inserting a mmber of PAUSE statements with different display flags in 
different branches and at different strategic points in 


а Sequence, it 
is possible to trace the course of execution of the pro, 


Bram, 


The END statement signifies to the compiler that 
the text of the program has ended and that 
compilation can start, 
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Chart 19 


The PAUSE Statement 


Display flag 
(octal number) 


(optional) 


PAUSE | (f) 


Examples: 
PAUSE 
PAUSE 463 
PAUSE 4T 
PAUSE 574 


In ease a program contains a number of subprograms (see Chap. 8), 
each program unit (main program or subprogram) should contain an END 
statement. There should be only one END statement for each program 


unit, 


5.5 FORMAT-FREE INPUT 


The structure of the FORMAT-free input statement is similar to that of 
the output statement. Consider the following statement 


READ(3,*) X,Y,M,K 


This makes the computer read values of the four numbers mentioned 
in the list. The variable names have to be separated by commas. 

The computer starts reading from the top of the сага deck and 
continues till it completes reading values for all the variables (four 
in this сазе). If there are more numbers in the card, the remaining 
are discarded. If there are less numbers in the card, further cards 
are read till the list is completed. 
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А READ operation always starts with a fresh card, 
Tne format-free READ is 


There can be severa] Variaoles in а READ statement. The result of 
the above READ Statement is tne same as having four assignment 


апа зо on, 


Chart 20 


FORMAT-free READ Statement 


Logical unit number 
(integer constant 
or integer variable) 


Variable list 


Examples: 
READ (3,X) VAR 
READ (IUNIT, X) K2, LENGTH 
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5.6 FORMATTED INPUT Ав) OUTPUT 


Suring input and output operations, information is transferred oetween 
a selected input or output cevice and the memory of the computer. in 
tae earlier sections of tnis chapter, we saw золе simple instances of 
such operations, Let us now consider а поге general situation While 
instructing the computer to perform such an operation, it is necessary 
to specify several details to tne computer, 


(1) The direction of information flow (i.e input ог. output). 

(2) тһе peripheral device involved (card reader, printer, punch 
гбс.). 

(5) ine memory location involved. | 

(4) The form in ыпїсп the information is represented in tne 
macnine, | А А : 

(3) The form in wnicn the iarormation is available for input and 
the form in which it is to be provided for output, 


fa early versions of FORTHAN, tne operstion ae ШӘРГЕНИЕЯ wea 
Specified by an appropriate statement (e6. READ, ТАРОТ, ACCEPT, 
PRALNI, PUNCH or TYPE) which iaplicitly speciiiea the dl rection of 
information flow as also the unit involved in some cases: READ and 
PUNCH for the сага reader and punch, PAINT деін еден ee 
ACCEPT апа TYPE Гор the typewriter, etc Such UNDEOMN пре а Cake tt 
of the unit involved was adequate in early e s wnich had only a 
бек peripheral units, one of each type. With the ange variety and 
avaber of units in modern systems, this is difficult. The unita 
involved are, therefore, explicitly specified; „пор the direction p 
the data transfer operation is js aureis iun, eem > PIEK] ДА, 8 

Ine information required to perform { spec: ot 
follows: 


(1) Direction of information flow: by the key-word HSAD or 
WRITE. : : | . 

(2) Unit on woicn tne operation is to be performed: оу the unit 
number. | 

(3) Ine variables whose values аге to be transmitted: оу the 
variable list (ог the шешогу locations whose contents are 
to ое read out or written into), 

(4) Tne шаппег in hien tnis information is to ре represented: 
(г) in tne weaory: by the variable type 
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(b) in the input or 
speci fication, 
(This is available ina 
label in the READ/WRITE 


output medium: by the FORHAT 


FORMAT statement, The statement 
Statement points to this.) 


Formatted WHITE and READ Statements have the following forms: 


Chart 21 
The Formatted WRITE Statement 


Variable list i 
(simple list or implied do list) 
(optional) 


Format statement pointer 
(statement label or variable 
format array name) 


am e por RE 


Logical unit number 
(integer constant or 


| 
Yarigble) Lr p N | 


"WRITE C OID 


Examples : 
WRITE (4,43) 
WRITE ЕТЕСІЗ 
WRITE (7, 37) X, Y (4), M(7) 
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Chart 22 
The Formatted READ Statement 


f 
| Variable list 

(simple list or implied do list) 
(optional) 


Format statement pointer 
(statement label or | 
variable format array nome) 


аса шї RENEE | 


Logical unit number 
| (integer constant 


READ) 0а юр 


Examples: 


READ (3,7) 
READ (MTAPE, K2) X, Y (4), J(100) 


| 
| 
| 
| 
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The structure of a FORMAT statement is as follows: 


Chart 23 
The FORMAT Statement 


‘FORMAT | UD 


Format lists are explained in 
Sec. 5-13 


This causes tne variables А and b to бе read on unit 5 according: 
to tne format Statement labelleà 4 wnicn specifies FT.2 ana F10.2 as 
the fiele specifications for thess variables, This indicates that tne 
veriadles conoernec are type rear 9 $150 tnat tncir values оге 
Presented on tae input medium ir a particular ranner (see 56с.5.о.1 
for dstails) 

The variables in tne list are organized in one or nons Punched 
cards or line printer lines. Басћ сага or line printer line іп termed 
а Тесога, A Sequence of records, usually ter@inatea by а unique end- 
of-file record, is a 'file', a 

A magnetic tape could contain a file consisting of a large 
Sequence of recoras, 


Each record is subdivided into a number of 
‘fields', each field accommodating one variable, 
The width оғ a field is the number of columns 
allotted to it, Each field can be subdivided into 
two or more subfields, 


Since the number of digits available for 
data of any given type ina computer is fixeg 
field wiath required for eacn data type is al 


internally representing 
; lt may seem tnat tne 
So fixea, In practice, 
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however, this is not so, The number of significant digits available in 
the case of data input and the number of significant digits required 
for data output can be different. Even the manner of representation of 
data, eg fractional or mantissa and exponent type of representation 
for floating point data) can be different, It would be convenient if 
the user could specify these by himself, For instance, in the case of 
income-tax calculations, it might be convenient to represent incomes 
and other similar variables with six significant digits to the left of 
the decimal point and two to the right. The velocity of the projectile 
in the program in Example 3-1 need not take say more than five 
significant digits, The programmer can exercise this control by using 
appropriate field specifiers, 

A provision thus exists for data to be represented differently 
within the machine and outside it, Data conversion and rounding-off 
may be required and is automatically done, along with decimal binary 
conversion (see Appendix 2), 

In the following sections, we shall see different types of field 
descriptors and the corresponding data representation and conversion 
operations, 


5.7 INTEGER VARIABLES (Iw) 


Depending on its word length, a computer can accommodate integers up 
to 16 digits long, Often, the numbers that are dealt with in computer 
programs are much shorter, The integer field specification (Iw) is 
used to specify the actual number of digits required to represent the 
value of an integer variable - either for input or for output, 


For input, 


ə the sign can be omitted for positive values; 

. (leading) blanks сап be introduced to the left if the field 
width is larger than necessary to accommodate the value (not 
to be right, since they are interpreted as zeroes); 

ə a decimal point must not occur in the field, 


For output, 


the plus sign does not appear for positive values; 

blanks are introduced to the left if the field width is too 
large; 

if the field width is inadequate an error message 
(consisting of all stars) is printed, 
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Chart 24 


Numerical Fieid Specifications 


Scale factor (integer) 


Field width (integer) 


Fractional subfield width 
or scale factor (integer) 


и i 
(5) (м) m ОШ 
S [E O L O өнө 
(5) (мг) B (d) General 
ee Double 

\ 1 

5, DI (w) 8 (а) Precision 


Integer 
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The integer (Iw) format is convenient for integer data. The 
maximum number of digits required must be known beforehand, 

Table 5-1 gives a few examples of input and output using the Iw 
field specification, 


Table 5-1 Integer Field Specification (Iw) 


rte =н „с=т ынын. 


Input Input field Value stored Output field Output 
data specification in memory specification data 
SS AV 
-123 n -123 15 b-123 
bb12 I4 +12 I3 b12 
b-123b I6 -1230 Il -230 
LIII] 
(error) 


r C E m 


5.8 REAL VARIABLES 


Real variables сап be input and output either in the (mixed decimal) 
fraction (F) format or the (mantissa and) exponent (E) format, While 
the F format is simpler and more easily readable, the E format has 
large dynamic range, The general (G) format combines the advantages of 
both, 


5,8,1 Fractional Field Specification (Fwed) 
This specification is characterised by the character ЕЁ, 


For input, 


е м specifies the entire field width including the Sign and 
the decimal point; 

ə a decimal point is optional; 

е -d cannot exceed ы; 

e the plus sign may be omitted for positive values; 

» leading blanks should be introduced if the field width is 
too large; 

• d is ignored if there is a decimal point; 

» d functions as a scale factor, if there is no decimal point 
(the number is multiplied by 1074) 
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Table 5-2 Fraction Field Specification: Examples 


Input data Input 
format 
field 
вресі- 
fica- 
tion 


123.156 FT.3 


1234567891 F10.3 


-12.355 F7.0 


+ 12345 F6.5 


For output, 


Value stored 


1234567 .891 


Output 
format 
field 
speci- 
fica- 
tion 


Output 


data 


0123.156 


айана 


b-12.315 


bbbbb-12 
b0.123 


. w specifies tne entire field width; 
. d specifies the fraction sub-field width (the number of 
digits to the right of the decimal point); 


Remarks 


d is ignored 

on input 

d used as soale 

factor on input. 
Field inadequate 
for output 

d is zero on 

input 


Output rounded- 
off 


м has to be at last d + 3, to accommodate the fraction sub- 


field, decimal point, and at least a one digit integer part; 
. W-2 is the maximum number of significant digits possible, 
since the field has to accomodate a sign and the decimal 


point; 


. leading blanks appear if w is too large; 


if ы is too small the value is rounded-off; 
if round-off is not feasible (i.e. if even the integer part 


cannot be accommodated in ы, an error (message) occurs 
. if d is zero, the decimal point and the fractional part do 


not appear. 
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The fractional field (fw.d) format is convenient 
for real data but is advisable only when the 
magnitudes of the input and output data are known 
and the dynamic range is limited beforehand; 
otherwise, there would be problems, 


А few examples of input and output using the Fw.d specifications 
re given in Table 5-2. 


5.8.2  &xponent Field Specification (Ew.d) 


for floating point cata with a large dynamic range, the mantissa and 
exponent field (шна) specification is convenient, 


For input, 


the field includes the mantissa with decimal point, the 
character & ana tne exponent; 

. the sign can be omitted ror positive mantissa or positive 
exponent; | 

if there is no decimal point, d functions аз a scale factor; 
. d is ignored if a decimal point does not occur; 

. а cannot be greater tnan w; 

e the exponent sub-fiela and tne fraction sub-field may ог may 
not exist. 


For output, 


the field includes the mantissa with decimal point, the 
character Е and the exponent; 

„ w specifies the field width; 

d specifies the fractional suo-field widtn (the number of 
digits to the right of the decimal pcint); 

w has to be at least d+7, to accommodate the exponent part 
(the character E, sign and two digits), the integer part 
(sign and one digit) and tne decimal point; 

„ the integer part is usually zero in the absence of a Scale 
factor; 

the number of siginificant digits is d; 

. if the field is too large, leading blanks appear; 

e if tne field is too small, an error (message) occurs: 
. if d is zero, the decimal point and fraction um 
appear (there will be no significant digits at ail); 


as 


3 
о 
et 
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. the mantissa appears in the normalized form (greater than or 
equal to 0.1 and less than 1,0); 


the left of the decimal point; 


the integer part is always zero except when a scale factor 
is used (see Sec, 5,14); 


. the maximum number of significant digits possible is d; 


• if w > d+7, (w-d-T) leading blanks will appear in the 
output, on the left, 


there is only one digit to 


cc а 


Input Input Value Output Output Remarks 
data format stored format data 

field in memory field 

specifi- specifi- 

cations cations 


eee 


THEE и E 00И 


123. 45E-2 Е9.2 1,2345 E11.3 bb0,123E«01 d field ignored on 
input due to 


decimal point 
Scaling to conform 
with d field 
Specification done 
on output 
-12345Е-2 Е9,2 -1,2345 E9,3 яны g scale factor 
used due to 
absence of decimal 
point on input 
field inadequate 
during output 


No exponent 


No fraction, 
Exponent 


ence “= 


no 
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A few examples illustrating the Ew.d specifications are given in 
Table 5-3. The Exponent (Ew.d) specification is somewhat complex, and 
is used when large dynamic range is required. 


5.8.3 General Field Specification (Gw.d) 


The Fw.d notation is convenient to use since it is easy to read. On 
the other hand, it has the disadvantage that if the output value is 
outside the expected range, an error occurs and information gets lost. 

The Fw.d format provides output irrespective of range, but is 
comparatively more difficult to read. 


The general field (Gw.d) notation combines the 
advantages of both the Ew.d апа Fw.d 


specifications, 


During input, it has exactly the same effect as the Fw.d 


notation. 


For output, 


it causes a printout in the Fw.d format where possible; 
. since the character E, and the sign and the digits of the 


exponent аге not required, four characters are saved and 
Ew.d gets converted to F(W-4).d',4X where 4X indicates four 
spaces; 


d' varies with the magnitude of the numbers; 

where the number is too small (< 0.1) or too large (> 10**q) 
it reverts to the Ew.d format, since Fw.d is not practical; 
whichever format is effective (E or F), (w-7) significant 
digits are guaranteed. The other seven are taken up by the 
sign, decimal point, the letter E, the two digits of the 
exponent and the integer part which is zero for the E 


format. 


Table 5-4 illustrates this with a few examples. The G format is 
most convenient to use when the range of the numbers is not known, 
Irrespective of the range of the number, it yields an adequate number 
of significant digits. 


NE М. з ene 
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10-9921 04 МАЕ! 6*219 L9S5£210*0 греми вәптел ломол 
goragneel “04 6°д\Я S*219 1%96ңЕ21 ерем вәптвл JeugtH 
Pol 

qqqa*9n£ziaa Xn*0*g4 S*219 19*Snt2l ха O° (HM) 3 pue (L7P)aa0l 
(1-р) е! 

ада99° пЕ21 94 xn'i*gà с*219 199° гі хп‘ (т-м) я pue (2-DP)aa40l 
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5.9 DOUBLE PRECISION VARIABLES (Dw.d) 


The Dw.d specification for double precision variables functions in the 
same manner as the Ew.d specification for real variables. The number 
of significant digits in the mantissa can be larger; the letter D 


appears instead of E in the output. 


5.10 LOGICAL VARIABLES (Lw) 


Values of logical variables can be input and output using the Lw 


Specification; W specifies the field widtn. 
Chart 25 


Logical field Specification 


[re ма | 
ИШ 


For input, 


starting with T(for .TRUE.) or F(for 


. only ‘a character string 
he field; the remaining characters 


.FALSE.) can appear in Е 
аге ignored. 


For output, 


.TRUE. is represented as T and .FALSE. as Fj if the field is 
too wide, blanks are added to the left (leading blanks). 


Бл ы 
1 ALPHANUMERIC INFORMATION 


Character strings can be input and output using the hollerith (wH) and 


Alph = 
Phanumeric (Aw) specification 
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5.11.1 Hollerith Specification (wH) 


We have alreedy seen (Sec. 5.2) how text can be printed out directly 
from а FORMAT statement using a wH format. The character H specifies 
that the string consists of Hollerith characters. w is an integer that 
specifies the width of the field. It should be equal to the length of 
the character string. 


Chart 26 


| Hollerith and Alphanumeric Specifications 


Field width 
(integer) 


Character string 


А Ww 
HO 


The value output is the character string itself. 

For input, the character string occurring in the input field is 
stored in the memory space reserved for the field specification, It 
can be output by a corresponding WRITE statement. 

For example, consider the statement pair 


READ (5,10) 
10 FORMAT (11Hbbbbbbbbbbb) 


eld contains the character string TEXTbOUTPUT, 
transferred into the space reserved for the 
computer memory. Assume that this is followed 


If the input fi 
these characters get 
FORMAT statement in the 
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by the statement: 


WRITE (6,10) 


The same character string (TEXTbOUTPUT) will appear in the 


output. 
The wH specification can deal with any character string 


(including non-FORTRAN characters) permitted on the input or output 
device, The input string, however, is not assigned as a value of a 


Variable. Hence, it cannot be manipulated in any manner by the 


computer, 


5.11.2 Alphammeric Specification (Aw) 


Manipulation of character strings in the memory is possible by using 
the Aw specification. 
ilie нна Gh hc A indicates that the field contains alphanumeric 
у the field. 
characters and W specifies the width of 
Here, the Ж Re string is not accommodated as part of the 
, f a variable specified 


field specification; it is stored as the value о 
in tne pec list of the input-output string. It is, therefore, 


avail ^ipulation by the computer. 
ae an HE n be used for variables of any type. There 


The Aw specification ca 
is, mend qu code conversion after input. The codes for all 
у for instance, the 


е гпа11у as they аге. т?, 
haracters are stored inte y dasisucb, UM 


format 
num i ead in using the Aw , à 
ber 1000 is r character codes used on the peripheral 


езен E E is used for ics i-re Mi i 
the code will be interpreted as а totally арзгар “oie Em anrai 
Will result. The data read in can, nowever, «oe Ee caria t 
Since this is available as values of variables. The types of 
°Perations that сап be done are: 


. arranging names in alphabetical order; 


. searching for a name; 


. eoncatenating names, etc. 


The Aw format can deal with any character Сома n 
character set of the peripheral LT E 
even non-FORTRAN characters. It is use de 
Character string has to be жогы А x 
manipulated in апу мау since it is ava 

the value of a variable. 
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For input, 
» if the field is too large, the leftmost characters are 
ignored; 
„ if the field is too small, trailing blanks are filled in, 
For output, 
• if the field is too large, leading blanks appear; 


ə if the the field із too small, an appropriate number of 
characters is discarded from the right, 


5.12 OTHER SPECIAL SPECIFICATIONS 


We have, so far, concerned ourselves (in most cases) with input and 
output operations which transfer information between the computer 
(variable names or memory locations) and data fields in the input or 
output media. For convenient arrangement cf fields ina record, (a 
punched card or a line printer line for example) and proper reference 
to them, a few other facilities are available and are outlined below, 


5e12e1 Blank Specification (wx) 


Chart 27 


Blank Specification 


Field width 
(number of blanks) 
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is useful to specify blank 


The specification wX 
d during input and filled 


fields, These are ignore 

with blanks during output, 
The letter X indicates that a blank field is being specified, The 
integer w specifies the number of blanks, 


5.12.2 Record Skip Speci fication(/) 


n a FORMAT specification functions as. 
It causes the current record to be 
ore than one record is to be 


The slash symbol (/) occurring i 
а record skip specification. 

Skipped and a new record started. When m 
Skipped, a number of slashes can be used. 


During input, 


e n slashes, П cards (includig the сага 


if there ar 
d) are skipped and the (n+1)th card is 


essentially being rea 
brought up for reading. 


During output, 
n lines (including the current line) 


if there are n slashes, 
printing starts at the (n+1)th 


are skipped and the next 
line. 


Chart 28 


Record Skip Specification 


ree records (including the current one 
to be taken up). For input, the 
hile during output (on line 
of blank lines to be left 


For example, /// causes th 
to be skipped and the fourth one 
nformati оп on that many cards is ignored W 
Printer) this causes an appropriate number 
and a new line to be started. 
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5.12.3 Vertical Spacing Specification 


The first character of each output record is not 


printed; it specifies vertical Spacing in the 
printout, 


A blank (b) in this position specifies one line spacing, a zero (0) 
two lines spacing, a one (1) the start of a new page and a plus (+) 
the inhibition of line advance combined with over printing on the 
earlier line, This character is, therefore, called the vertical 
Spacing control (or carriage control) character, 

There are several ways in which the carriage control character 
can be specified, The simplest way is to use a Hollerith field 
Specification (either in isolation, e.g. аз 160, 1H1, eto, or as part 
of a longer Hollerith string), А blank can be Specified using the X 
Specification (eg. 4X) or a field specification which causes leading 
blanks (e.g. E12.3). 


5.13 FORMAT LIST 


We have, in the previous Sections, 


studied various types of field 
descriptors, These are broadly of two 


types: 


'Variable field descriptors’ describe the format 
in which values of variables are organized (e.g. 
the I, E, G or A Specifications) and 
'Literal field descriptors’ describe fields which 


do not correspond to values of variables (blank 
and wH specifiers), 


A simple FORMAT list can consist of 


» а list initiator (one or more Slashes - optional); 

» variable field descriptors (e.g. Fwed, Aw ys 

• literal field descriptors (eg, blank and wH); 

» field separators (commas o 
with field descriptors; 

* field terminators: (one or more slashes = optional) 

• Pepetition factors (inte 


gers to be used with field 
specifiers when a field descriptor is to be repeated: 6,2. 
4F5.3). 


r slashes) which must alternate 


A FORMAT list has the following structure: 
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Chart 29 
Simple FORMAT List 


Field specifier 
I,F,E,C,D,L, 
H or X specifier 


Repetition factor 
(integer) 


Field terminator 
(опе or more/) 
( optional) 


Field descriptor 


Field separator(,) 
or Record skip (/) 


Field initiator 
(one or more/) 
optional 


Examples: 


4X,13, F6:3, 4H xb b, I2 
J/ AA, 5А1, 4X, I3/3F 7-3 
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An example of a FORMAT statement with a simple format list is 
20 FORMAT (4X, 4HXb=b, F7.3, 2X, 4HIb=b, 13) 


The variable field descriptors in this list are F7.3 and I3 which 
have no repetition factors. Let this statement be coupled with the 
output statement 


WRITE (6,20) X, I 


А one-to-one association is established between the variables in 
this WRITE list and the variable field descriptors in the FORMAT list, 
so that X is printed out with the format F7.3 and I with the format 
I3. It is easy to see that the WRITE statement causes the current line 
to be skipped and prints the following as a new line. 

The output will be as follows: 


(1) blanks (3 colums) 
(the first blank is used as a carriage 
control character) 


(2) the message "X = " (4 


colums) 
(3) the value of X in format F7.3 (7 columns) 
(4) 2 blanks (2 colums) 
(5) the message "I =" (4 columns) 
(6) the value of I in format I3 (3 colums) 


Consider the statement pair 


READ (5, 30) X,N 
30 FORMAT (/4X, 4Hbbbb, F7.3, 4Hbbbb, A3) 


The exact result of the statement pair is 1 
eft " 
the reader to work out, аз an exercise for 


If a sequence of field Чезог1 
repeated a number of times, qup бе за 


it сап be enclosed 1 
Parentheses and preceded by a in 
factor. у multiplication 


A field descriptor group is a sei 


uence А 
occurs, Examples of a field descriptor oan a ARES йерек тен 


2(13, А2), 3(F8.2, 2Е11.3) 
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Chart 30 
Complex Format List 


Multiplication factor 
(integer) 
(optional) 


Simple format list 


Field separator 
(Slash or comma) 


zl 


Field descriptor group 
Field separator 
(Slash or comma) 


Field terminator 
(one or more/) 
(optional) 


Field initiator 
(One or more /) 
(optional) 


Multiplication factor 
(integer) 


Examples: .2, Е12:3),А6 
F5:2, 13 3(Е6:2, 2 
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Such grcaps can themselves be similarly used with repetition factors 
in a complex FORMAT list. In all, nesting of parentheses up to a depth 
of three is permitted, including the parantheses enclosing the full 
list. Examples of complex FORMAT lists are: 


20 FORMAT (3F6.3, 2(F5.2, 213), E11.3) 
HO FORMAT (/F5.2, 3(F6.3, ІШ, 2(13,A2), 2L1), F6.3) 


Expanaing such lists into the equivalent simple lists is quite 
straightforward. It is to be ncted that 2(F5.2, 213) is expanded as 
(F5.2, 213, F5.2, 213) and not as (2F5.2, 413). 


5.14 SCALE FACTOR 


In certain situations it becomes necessary to provide for an automatic 
scaling up or down of data fed into a computer before it is stored as 
the value of a variable. For example, the input data may consist of 
different parameters measured in different metric units (metres, 
millimetres and centimetres, say). It may be necessary to process 
these uniformly in terms of a common unit in the machine. We can 
accomplish this by using a scale factor along with the field 
descriptors in the FORMAT specification. 


The scale factor n is an integer constant and can 
be unsigned or negative. It scales the input value 
up ог the output value down by a factor of 107 


(external representation) - (internal representation).10^ 


The scale factor can be used with D, E, F, and G conversions. 
For input, it is effective only if the external representation is not 
in the manvissa and exponent form (2.3E-21). For input data in this 
form, it has no effect. 

For output in the F conversion mode, scaling is effective. 

In the D and E conversion modes, the fraction part is scaled up 
but the exponent is scaled down. So, there is no net scaling. In 
some cases, this may cause loss of siginificant digits. 

In the G conversion mode, scaling up takes place if the output is 
in the F mode. There is no scaling if the output is in the E mode. 

A scale factor is "set up" once it appears in a field 
specification. It is effective for all other field specifiers in the 
same FORMAT statement, until it is superseded by another scale factor 


Specification. To cancel out the effect of a scale factor, a OP 
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(zero P) specification ean be used in the following field specifi 
ers. 


Consider the FORMAT statement 


FORMAT (Е10.3, 2P E12.5, F8-3, E10.3, OP E14.7, F6.3) 


2P is operative 
There is no sca 


The scale factor on the field specification 
le factor on E14.7 and F6.3 


E12.5, F8.3, and E10.3. 


5.15 VARIABLE FORMAT 

With the wH specification discussed in Section 5.11.1, we can insert 

Hollerith constant into a FORMAT statement. We can also print 9 
е this facility to read in field 


subsequently. We can us 
This permits us to keep the 


specifications into a FORMAT statement. 
specification open till the time the program is run, and to make it 


available at this time as data. Subsequently, other data can be input 


or output using this format. 

| This is possible by using а Hollerith variable or array name 
instead of a FORMAT ‘statement label in an input or output statement 
Values can then be assigned to these variables at the time the ма 


із гип. 


Consider, for exam the statements 


ple, 


INTEGER HVAR (3) 
4 REAL (5,15) HVAR 
15 FORMAT (ЗАН) 
6 ВЕАР (5,HVAR) T 
ent 4 reads an alphanumeric string, according to 
nt 15 at run time. Let us Say this string is 
(213, 2pT.3). It assigns this as the value of the array HVAR (Chap.7 
explains arrays; at this stage, it is adequate to understand merely 


that an array 15 ariable). 
Statement 6 es I, J, Xand Y. This statement 


does not have a statem he FORMAT specifier. It has the 
array name HVAR in that place. This means that the FORMAT 


specification is obtain? ue of this array. The value, of 
2FT. с 


ba is the string (213. 2. 
a then is the FORMAT specifica 

variables I, J, X and Y. 
2. t is another way ifying formats for reading and 
ng at run time, instea iting the program. This, 
tatement number 


agai i i 
n, is done by using а vart 


dX, Y 


The READ statem 
the FORMAT of stateme 


iabl 
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as the FORMAT specifier. The value of this variable has to be an 
alphanumeric string - the desired FORMAT list itself. This can be 
read in when the program runs, using the Aw FORMAT. 


5.16 THE DATA INITIALISATION STATEMENT 


Values can be assigned to variables using input statements or 
assignment statements. Another method of accomplishing this is by 
using the DATA statements. 

The DATA statement contains a number of data pairs, separated by 
commas. Each data pair consists of a variable list, a slash, a 
constant list and a slash. A number of constants in the constant list 
has to be equal to the number of variables in the variable list. The 
first constant in the constant list is assigned as the value of the 
first variable in the variable list, the second constant is assigned 
to the second variable and so on. If the same constant has to occur a 
number of times in sequence, a repesition factor can be used (2*3.2 is 
equivalent to 3.2, 3.2). 

For example, the statement 


DATA А,В,1,К/1,2.3,10,0/,8,0/2%2.3/ 


is equivalent to the sequence 


OuwwUu»- 
ни пи н 


The DATA statement is quite compact, Also, data initialization 
takes place during compilation and not during execution, Execution of 
a compiled program would be faster if values are assigned by a DATA 
statement rather than by assignment statements, 

It must be remembered that the DATA statement takes ef 
the time the program is loaded, Therefore, if an entire 
being loaded and run, is again run a second time, 
does not take place for the second and subsequent 

The same problem arises if DATA statements a 
This statement therefore is intended only for dat 
cannot be used in place of assignment statements, 


fect only 
Program, after 
data initialization 
runs, 

re used in DO loops. 
а initialisation and 
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Chart 31 


The DATA Initialisation Statement 


Repetition factor 
(integer) 
(optional) 


"| Variable list 


p1/3-14167/ 
73/,M,N/2,74 K 
TX, а 2:54 dd 


DATA 
DATA I 
DATA 
DATA 


/. TRUE -/ 
FALSE:, 4HMb=4/ 
3x2:2/ 


Examples: 


A,B, 6:07 1-2» 
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The DATA initialisation statement is faster than 
the equivalent set of assignment statements, but 
it should be used only for assigning initial 
values of data - not to replace assignment 


statements in general. 


5.17 SEQUENTIAL FILES 


Among the various devices that communicate with the computer, magnetic 
tape units are unique in the sense that they are commonly available 
with many installations and permit both input and output operations, A 
magnetic tape is a sequential file in that the individual records are 
sequentially organized and accessed, as opposed to say magnetic disc 
units which permit random access, 


5.17:5-- Sequential File Manipulation 


(1) END FILE:-This statement causes the tape unit to wrive a 
Special END FILE record as the next record on the tape, The 
unit number specifies the tape uni. on which the operation 
is to be performed, 


(2) BACK SPACE:-This causes the unit to move back one record and 
be in position to read the record that had been read 
(presumably) before the statement is encountered, 


(3) REWIND:-On encountering a REWIND statement, the magnetic 
tape is rewound and kept in position to read the first 
record on the file, 


5.17.2 Unformatted Input and Output of Sequential Files 


In some cases, all the information required by a program cannot be 
accommodated in the available memory, It becomes necessary to dump 
this on to a secondary storage medium such as a magnetic tape or disc 
unit and bring it back only when needed, Unformatted READIWRITE are 
used for such intermediate storage and retrieval of data, Since such 
data are only dumped and retrieved (and not used in any other manner), 
they can remain in the secondary storage unit also in the Same form as 
they exist in the computer memory (i.e, in the binary form of 
representation), This. eliminates the need fcr data conversion during 


Input/Output Statements and Simple Programs 13 
7 


voids round-off errors and saves time. Hen 
5 се; 


input and output, а 
necessary. Unformatted READ and WRITE 


FORMAT specifications are not 
statements accomplish these functions. 


Chart 32 


The ENDFILE, REWIND and BACKSPACE Statements 


Logical unit number 
(integer variable or 
integer constant) 


©) 


END FILE 
REWIND 


BACK SPACE 


e 


| Examples: 

| ЕМО FILE 4 
END FILE CAN 
REWIND — 1TAPES 
REWIND 0 


BACKSPACE © 
BACKSPACE НТ! 


For example, the statement 


WRITE(4) A,B, INCOME, TAX 
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causes the values of the variables A,B, INCOME and TAX to be 
transferred on to Unit Ц. 

Chart 33 


The Unformatted READ Statement 


Simple list or 
implied DO line 
(optional) 


Logical unit number 
(integer constant or 
integer variable) 


[READ] [0 @ D] (Т) 


Examples: 


READ (3) 
READ (MTAPE1) X, Y, N (364) 
READ (LSP3)N 


The statement 


WRITE(4) X,Y,Z 


will bring back three constants from unit 4 and assign them to the 
variables X,Y and Z respectively, 


5.18 SIMPLE PROGRAMS 


requiring input of data, computation апа output 
following examples perform these functions, 
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Chart 34 


The Unformatted WRITE Statement 


Logical Unit number (integer 
variable or integer constant) 


Output list (simple list 
or implied do list) 
(optional) 


[WRITE] | *% 


SIL 


Examples: 
WRITE(4) X, Y,N (100) 
WRITE (LT 3) A,B,X 
WRITE (ITAPE1) M,N 
Example 5-2 


The three sides of a triangle 
program for calculating and Pr 


is also necessary to print tit 


It is required to write a 
ee angles and the area. It 


les for these outputs. 


are given. 
inting the thr 
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Given the three sides a, b and c, the semiperimeter is given by 


C can be calculated using the relation 


А +В + С = 


The area is given by the relation 


Area = ,/s(s-a) (s-b) (s-c) 


While each of these relations can be directly translated into FORTRAN 


Statements, this would be wasteful of computer time. We, therefore, 
use the additional variables: 


is 
a =S-a,b'=s-b,ct=s 


- с 


sp’ ac? 


5! 
Then, tan (4/2) = --- 
а! 


5! 
апа tan (B/2) = --- 
b! 
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and area = s',s 


Let us define variables as follows: SA, SB, SC for sides a,b and 
с, S for s, AP(A prime), BP, CP and SP for a', b', с! ЗМ s! 
respectively and AREA for area, Converting the expressions into a 
FORTRAN program is straightforward now as shown below: 


с PROGRAM TRIANGLE 
с NO ТҮРЕ DECLARATION NEEDED, AS ALL VARIABLE NAMES 
COMPLY WITH NAMING CONVENTION 
с ASSIGN GIVEN VALUES TO SIDES TO РІ 
SA = 2.143 
SB = 1,431 
SC = 2.234 
PI = 3.11159 


CALCULATE VALUES OF INTERMEDIATE VARIABLES 
S = (SA+SB+SC) * 0.5 


АР = 5 - ЗА 
ВР = S- SB 

СР = S ~ SC 

SPSQ = AP * BP * CP/S 
SP = SQRT (SPSQ) 


DEFINE INTERMEDIATE VARIABLES FOR TAN HALF A AND 
с TAN HALF В 
THA = SP/AP 
THB = SP/BP 


e 


с CALCULATE A,B,C AND AREA 
A = 2. * ATAN(THA) 
В = 2. " ATAN(THB) 
С = PI - (A+B) 
AREA = SP 4 5 


6 PRINT TITLES, ANGLES AND AREA 

WRITE (6, 10) 

10 FORMAT (181, 
WRITE (6,15) А,В,С 

15 FORMAT (1H0, 3(3X,F10«3) 
WRITE (6,20) 

20 FORMAT (12HbTHEDAREADIS) 
WRITE (6,25) AREA 


QHTHEDTHREE , 1 1HDANGLES DARE ) 
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25FORMAT(1HO,F 10.3) 
STOP 
END 


The carriage control characters for the four write operations 
(FORMAT statements 10, 15, 20 and 25) deserve attention, In the first 
one, 1H1 causes a new page to be started, In others (b or 1Н0), single 
or double spacing is specified. 

The program computes the angles in radians, We may note that, in 
our effort to minimize computer time, we have used many intermediate 
variables and thereby occupied additional memory space. Such 
tradeoffs between time and space are common in computer programs, 


Example 5-3 


Let us rewrite the program of Example 5-2 with a provision for data 
input, 

This сап be accomplished by substituting the assignment 
statements for variables SA, SB and SC with the following: 


c READ LENGTHS OF SIDES 
READ (5,30) SA, SB, SC 
30 FORMAT (3F6.3) 


The advantage of this, apart from its brevity, is that the body of the 
program need not be modified to repeat the calculation for other 
values. This can be done by using fresh data, 


EXERCISES 


1. What is the differencein the way the repetition factor is used 
for FORMAT specifiers and DATA lists? 


2, Write a program to evaluate the areas of the six faces of a 
rectangular parallelepiped, given the lengths of the three sides as 
input data, The results are to be printed out. 


3. The following data are to be read into and printed out of a 


computere 
а) 0 
(11) 1.436789 
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(iii) 99000000 
(iv) 0.000012345 
(v) -749 

(vi) 12347 

(vii) 100000 


Which of the following input and output formats can be used in each 
case? What would the internal representation, output value and error 


(if any) be, in each case? 


Input Output 
(i) I4 IY 
(11) F8.3 F6.2 
(iii) G12.4 G10.3 
(iv) 2pF9.2 F9.2 
(v) F10 F10.3 


4. How would you use the facilities described in this chapter for 


the input and output of complex data? 


5. Write a program for evaluating the roots of the general quadratic 
equation using the standard formula. Try it for various real and 
complex values of the coefficients. 
6. А program requires each input card to contain the following 
information: 
(i) Name of employee 
(ii). Sex 
(iii) Age 
(iv) Yearly salary 
(v) Number of children 
(vi) PIN code of hometown 


Organize the appropriate field assignments and write one or more 


formatted input statements to read this data. 


7. Write a program fer calculating, given two sides of a right 


angled triangle, the hypotenuse. 


8. What is the effect of i 
(i) removing the type declaration statement in Example 5-1 


(11) removing tae decimal points in the constants 
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9. Rewrite the program of Example 5-2 to calculate the angles in 
degrees instead of in radians. 


10. Construct input and output statements to correspond to the FORMAT 
lists cited in Sec.5.13. For each variable, illustrate the relation- 
ship between the value as available in the memory and as represented 
in the input or output medium. 


11. The following program has missing and superfluous statement 
labels. Do the needful to correct it. 


READ (5,20) A,B 
FORMAT (X, F10.3, 4X, E12.4) 
40 C = A + SQRT(B) 
WRITE (4,40) A,B,C 
FORMAT (X,/4X, 2F8.1, 6X, F10.3) 
23 STOP 
END 


12. Make the necessary corrections in the following FORMAT lists. 
Which of these lists can be used to replace the ones in the above 
program? What would the effect be? What would be the best output 
FORMAT statement to use there? What exactly would be the implications 
on the input and output organization in each case? 


(6X, F14.3, 15) 

(2X, F6.5, 2X, E10.8) 

(F6.4/E10.3, 2X, Е14,6) 

(F6.0, 2X, F8.3, 1OHbTHEbANSWERbDISb, F8.2) 


13. Correct the many errors in t| i nd rewrite it 
properly. he following program a 


INPUT (6,5) X,Y,Z 
6 FORMAT (I3,2*X, F10.2./,G14.0) 
TYPE INTEGER, Y 
X = у+2##2./3 
WRITE (6,5) X,Y,Z 
5 FORMAT (2PI3, 3X, F6.2,) 
STOP 9 
END. 


Сһарїег 6 


RANSFER OF CONTROL, 
BRANCHING AND LOOPS 


їп a program written in machine 
that they are executed 
AN are also similarly 


We | 
saw in Chapter 1 that instructions 


p e аге stored in SUC 
сн same sequencee 
it Е in sequence. Ме have а 
бо To тез песеззагу to break the sequence. 
and IF statements in 


130 seen that е 
This is possible using the 


in FORTRAN serves to break the 
rs control to 


It transfe 
located anywhere in the 


во TO statement 
f computatione 
tement 


The 
sequence 9 
a specified зба! 


programe 


Consider the statement 


GO TO 40 


nm this statement the sequence is broken in the 
not е that the statements immediately pelow the GO TO statement are 
4 executed. Control transfers to the statement labelled 20. It 
tes агл, necessary 6 at there should be 8n executable statement 
Baer д PEN labelo., DEP SG no restrictions 85 to where it сап 
5 it сап either precede ОГ олон the GO 10 statement. 
idonee might recapitulate that statement labels have to be unsigned 
Pecong s (up to 5 digits 1016 * e first five columns of the input 
Е nine ine е" К field. 


is encountered, 
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С загі 35 
The Unconditional GO TO 


Jump pointer 
(statement label, integer) 


GO TO 


Examples 
GO TO 100 
GO TO 3 
GO TO 4367 
Example 6-1 


Let us consider the problem of Example 1-2 and rewrite it in FORTRAN 
to illustrate the use of GO TO statement. В 


с PROGRAM SAMPLE 
10 READ (5,15) GOODS, DAMAGE, PRICE 
VALUE = (GOODS - DAMAGE) * PRICE 
WRITE (6,15) VALUE 
15 FORMAT (1Hb,F8.3) 
GO Tu 10 
END 


When the GO T! 10 statement is encountered, а search is made for a 
statement be ring the label'10; control is then transferred to the 
READ statem: at and three new values are read (from three new cards, | 
see the FOF ЛАТ statement) for the variables. After executing the 
arithmetic assignment and WRITE statements, the GO TO is again 
eneounterei, It сап be seen that, as in Example 1-2, the program E09? 
into an endless loop. 
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6.2 THE IF STATEMENT 


The IF statement in FORTRAN is the equivalent of the conditional jump 
instruction in machine language. 


An IF statement can be used for choosing between 
two or more alternative sequences of computation. 


The choice will be made depending on the situation as it exists at the 
time the program is executed e.g. whether or not a specified condition 
has been satisfied. Consequently, it is also useful for coming out 
of loops. 

We have seen that conditional jumping is possible in a computer 
depending on one of several types of conditions - whether the contents 
of a register are negative, positive, zero and so forth. Similar 
facilities are available in FORTRAN using the logical and arithmetic 


IF statements. 


6.2.1 The Logical IF statement 


The logical IF statement permits a choice between 
two alternatives. One branch is chosen if a 
specified condition is satisfied and the other 
branch is chosen if it is not satisfied. 


Examples of logical IF statements are: 


L is a logical variable and X is a 


real variable. 

A and B are integers or real 
variables or expressions and Y isa 
variable name. 

A and B are logical variables and 12 
is a statement label. 


IF ((WEIGHT .LE. 80.) .AND. A .OR. B)) READ (12,13) X 
WEIGHT is a real variable; A and B 


are logical variables; 12 is a 
peripheral unit number; 13 is a 
FORMAT statement label; and X Ws m 
variable name. 


IF(L) X = 2. 
IF (A .GT. B) WRITE(5) Y 


IF (A .AND. B) GO TO 12 
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Chart 36 


The Logical IF Statement 


Condition (logical expression) ] 


Conditionally executed statement 
(any executable statement 
other than logical IF or DO) 


Ha cmo 


Examples : 
IF(L)GOTO 100 


IF(A:GT-B)WRITE(4,X)A 


The logical IF statement is convenient to use when 
a single statement is to be executed or Skipped 
depending on whether a specified condion is 


satisfied or not, 


To achieve branching between two alternative sequences of computation, 
the embedded executable statement has to be a GO TO, as indicated 
above, The following flow charts indicate how an IF statement сап be 


used in both these cases, 
Consider the statement pair 


IF(L) GO TO 20 
10.6.» 
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The sequence is broken and control is transferred to the statement 
labelled 20 only if (L) is .TRUE.; otherwise, the normal sequence is 
preserved and the statement labelled 10 is executed. This makes two- 
way branching possible. The IF statement can contain any other 
executable statement instead of the GO TO. Even in such a case the 
statement embedded in the IF statement is executed if the condition is 
true, It is skipped if the condition turns/out to be false. 


Example 6-2 


Consider, for example, a program for calculating and printing the 
absolute value of a given variable. If the value of the variable is 
negative, the sign has to ре changed; otherwise, no action is needed. 
The program for this is as follows: 


0 PROGRAM ABSOLUTE 
READ (5,10) VAR 
IF (VAR .LT. 0.) VAR = - VAR 
WRITE (6,10) VAR 
10 FORMAT (1HO,F10.3) 
STOP 
END 


seen that conditional branching can be achieved 
t along with a logical IF statement. Such a 


getting out of a loop. 


We have already 
by using a GO TO statemen 
statement can be used for 


Example 6-3 


Let us see now we can modify the program of Example 6-1 by using a 
logical IF statement to get out of the loop. Just as the unconditional 
jump of Example 1-2 was replaced by a conditional jump in Example 1-3, 
ме would replace the unconditional GO TO by a logical IF statement, 


The program is then rewritten as follows: 


c PROGRAM LOOPOUT Мг. 
10 READ(5,20) GOODS, DAMAGE, PRICE 


20 FORMAT(3 F10.2) 
VALUE = (GOODS - DAMAGE) * PRICE 


WRITE (6,30) VALUE 
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30 FORMAT (1HO,£10.2) 
If (VALUE .GE. U.) GO TO 10 
STOP 
END 


As long as VALUE is non-negative, (i.e. DAMAGE is less than or 
equal to GOODS) the condition is satisfied and the GO TO statement is 
executed, keeping control within the loop. For the first set of values 
of GOODS and DAMAGE which yield a negative value for VALUE, the 
condition is not satisfied and the GO TO is skipped. The program gets 
out of the loop, encounters tne STOP statement which follows the IF 
and computation comes to a stop. 


Example 6-4 


There is another type of application for the logical IF statement, 
Consider Newton's algorithm for the computation of square roots, which 
States that if S is an approximation for the square root of A, then 
(A+A/S)/2 is a better approximation. Repeated application of this 
procedure makes it possible to compute the square root to any degree 
of accuracy required. Let us see how this can be implemented in 
FOHTRAN. 


C PROGRAM SQROOT 
C READ NUMBER AND LINIT FOR ACCURACY 
READ (5,10) A, Y 
10 FORMAT (F9.3,4X,F10.7) 
© LET FIRST APPROXIMATION ВЕ 1, COMPUTE ACCURACY 
50 = 1. 
Y = A*Y 
(с; CALCULATE NEXT APPHOXlHATION 
5 50 =(SQ+A/SG)/2. 
С CHECK WhisThEK ACCUKACY ADEQUATE 


Те (AbS(A-SG*SQ) .GT. Y) GO TO 5 


WRITE (6,20) 56 

20 FORMAT (1Hb,F1h.) 
STOP 
ERD 
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Read Data 


First approximation 
50-1 


Next approx 
50 (50 +А/50)/2 


Is 
accuracy 


adequate 
? 


Fig. 6-1 Flowchart for Example 6-4 
(Newton's approximation for 
square root) 


with the comments, is self-explanatory, Each 
traverse of the loop yields 8 better approximation than the earlier 
one, Looping terminates when the requisite accuracy is achieved, as 
checked by the logical IF statement, This program will not terminate 
if the iteration does not converge because, say, A or Ү is zero or 


The program, 


152 Programming in FORTRAN 


negative. Even if Y is very small, roundoff erro 
prevent termination, 

conditions and/or set a 
iterations, 


rs in computation may 
It would be desirable to check for such 
n independent maximum limit to the number of 
These are left as an exercise for the reader, 


` 6.22 Ше Arithmetic IF Statement 


The arithmetic iF statement permits three- 
for choosing one out of three different s 
execution, The choice, once again 
results of earlier computation, 


way branching. It is useful 
equences of statements for 
» would be made depending on the 


Chart 37 


The Arithmetic IF Statement 


Positive branch Pointer 
(statement label, integer) 


Negative branch pointer 
(statement label, integer) 


Arithmetic expression ESI | 
P 
ТЕ] C) D] &» Et [66 


Examples; 
IF (X)2,4,6 
IF (KX32)1,1,3 
IF (A-(B4C)72 +0)4,6,7 
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Consider the statement 


IF (F) 10, 20, 30 


10, 20 and 30 here are statement labels. They define the starting 
points of the three branches to be chosen, The choice depends on the 
value of E. If E is negative, the left branch is chosen and control 
goes to the statement labelled 10. If E is O, the middle branch is 
chosen. Control then goes to the statement labelled 30. If Eis 
positive, the right branch is chosen and control goes to the statement 
labelled 30. 

It is possible to achieve two-way branching also with an 
arithmetic IF statement. For this application, arithmetic and logical 
e used interchangeably. For instance, the 


IF statements сап b 
qui valent 


following two sequences of statements are e 


IF (Е.Е0.0.) 51 
52 


IF (E) 2, 1, 2 
1:84 
2 52 


ment with a simple relational condition 


In fact, any logical IF state 
tely written arithmetic IF statement, 


сап be replaced by an appropria 


important precaution to be taken while 


There is an 
ements, The zero branch 


writing arithmetic IF stat 
presents a pitfall. 


expects a zero value for an expression, 
off errors involved (in division for 
instance) might cause the value to be non-zero, particularly for real 


and double precision expressions. What if this happens? The 
programmer expects the zero branch to be taken. However, control 


Skips through to the positive or 
the sign of the result. This P 
artithmetic where results are far easier to predict. 


Even where the programmer 
the approximations and round- 


the negative branch depending upon 
roblem is less severe for integer 
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Further, a logical IF statement is clearer to understand than an 
arithmetic IF. Consider,for instance, the two equivalent sequences 


IF(A.GT.B) C = D +Е 


F=G+H 

and 
IF (A-B) 2, 2, 1 
1C=D+E 
2Е= О +Н 


Undoubtedly, the former is clear even to a person not familiar 
with FORTRAN. 

This lack of clarity or readability and the zero branch ambiguity 
mentioned earlier make the arithmetic IF statement somewhat 
unattractive to use. Avoiding the arithmetic IF is, therefore, 
considered to be good programming style. For completeness however, an 
example using the arithmetic IF is given. 


Example 6-5 


A distributor of books despatches consignments of books against orders 
and advances received from his customers. Subsequently, he bills them 
for outstanding payments or refunds excess advance, as required in 
each сазе. He also offers a telescopic scheme of discount over 
purchases, depending on the total amount of the order, A program is 
required to print a statement listing the names of the customers and 
‘the amount due or amount to be refunded in each case. Let us see how 
this can be done. 


We might assume that all the required information regarding each 
customer is available on a single punched card: name (5 columns in the 
card), quantities of books ordered (5 different types, 3 columns 
each), and amount of advances received (8 columns). Blank columns 
separate individual items of data from each other, The FORMAT 
specification of statement 10 could also have been (A5, 514, F9.2); 
blanks are explicitly specified here for clarity. The end record is 
indicated Ly a negative entry in any of the 'quantity ordered! 
columns. 

The cost of each book (Rs.11.25, Rs.24.00, Rs.13.50, Кз.50.00 апа 
Rs.39.40, say) and the discount structure (10% for orders below 
Hs.1000/-, 15% for orders of Rs.1000/-or more but below Rs.5000/-and 
25% for orders of Rs.5000/-or more) are available as constants in the 
program. 
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PROGRAM BOOKSELL 


PKINT TITLES 


WRITE (6,3) 
3 FORMAT (БЕТМАМЕ, 41x, 1OBAMOUNTDDUE, 5X, THBEXCESSbPAYMENT) 


SET VALUES FOR PRICE OF EACH BOOK 


PRICE1 = 11.25 
PRICE2 = 24.00 
PRICE3 = 13.50 
PRICE4 50.00 
PRICE5 = 39.10 


TA (ENTER LOO ) 


READ INPUT РА Р 
BOOK2, IBOOK3, IBOOK, 


5 READ(5,10) NAME, твоок1, I 


11BOOK5, ADV 
10 FORMAT (A5; 5(х,13), 9 Е8.2) 


CHECK ТЕ END ОЕ JOB 
.OR. (твоокг .LT. 0) .OR. (IBOOK3 .LT. 0) 


LF ((1В00К1 шт. 0) 
1.0R. (1BOOK! .LT. 0) .OR. (IBOOK5 .LT. 0)) STOP 
CONVERT INTEGER VARIABLES INTO REAL VARIAELES TO 
AVOID MIXED MODE ARITHMETIC 


BOOK1 = ІБООК1 
BOOK2 = 1BOOK2 
BOOK3 = IBOOK3 
BOOK! = TBOOK4 
BOOKS = ІБ00К5 
CALCULATE VALUE OF ORDER 
VALUE = BOOK1#PHICE1 + BOOK2*PRICE2 + BOOK3*PRICE3 + 
i BOOKS * PRICES 


1 BOOKY*PRICE4 + 


DETERMINE WHICH RATE ОЁ DISCOUNT 15 APPLICABLE 
ITEST = (VALUE«3000. )/4000. 

тЕ(1Ть^Т - 1) 5,7,3 
DUES = VALUE * 0.9 


GO TO 9 


с 


7 DUES = VALUE * 0.85 


GO TO 9 
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8 DUES = VALUE * 0.75 


с DETERMINE WHETHER REFUND Gk PAYENT IS рок AND 
с МАКЕ APPROPRIATE ENTRY IN TABLE 
9 DIFF = DUES - ADV 
IF(DIFF) 11,12,13 


б CHANGE SIGN OF DIFFERENCE If NEGATIVE 
11 DIFF = - DIFF 


WRITE (6,20) NAME, DIFF 
20 FORMAT (1Hb, A5, 10X, ЗНАШ, 12X, F8.2) 
GO TO 5 


12 WRITE (6,30) NAME 


30 FORMAT (1Hb, A5, 10Х, 3HNIL, 12X, 3ENIL) 
GO TO 5 


13 WRITE (6,80) NAME , DIFF 
4O FORMAT (1Hb, A5, 10X, F8.2, 7X, 3HWIL) 
GO TO 5 


END 


The only variable name which 
the name of the customer, 
and can be of any type. 
convention. 

The first task done by tne program is to print the titles of the 
columns of the table; note that the format provides for spaces between 
adjacent column headings. Next, the cost of each type of book is 
entered, using arithmetic assignment Statements. This is not Striotly 
necessary; since these variables are referred to only once in the 
program, they could be used directly as constants in the expression 
The method followed, viz. using variables and assigning values to 
them, has the advantage that these values, instead of being part of 
the program, сап be read in as data, if desired, If So, the five 
assignment statements for PRICE1, PRICE2, eto. can be deleted and 
replaced by a kEAD statement, 

The program then starts reading 


deserves special mention is NAME, 
which is read in using an Aw Specification 
Other variables conform to the standard naming 


data for each customer; it does 
this by entering a loop Starting with statement 5. This READ statement 
assigns values to the constants Specif 


ied, viz. the number of books of 
each type (IEOOK1, 1BOOK2 


» etc.) and the advance paid. At this stage, 
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a check is made as to whether any of the constants IBOOK1, IBOOK2, 
etc. is negative; this signifies the end of the job. This is done by 
using a logical IF, which causes the program to get out of the loop 
and STOP. Otherwise, control stays within the ioop. Incidentally, this 
is an instance of a STOP statement occurring in the middle of the 
program. 

The prices of the books (РКІСЕ1, PRICE2, etc.) are represented as 
real variables (they have to be) while the number ordered (IBOOK!, 
IBOOK2, etc.) are type integer. To avoid mixed mode arithmetic, we 
define real variables (BOOK1, BOOK2, etc.) which are made to assume 
the same values but represented in the real mode by means of 
assignment statements. This is not necessary for systems which permit 
mixed mode arithmetic. 

The total value of tne order is then computed. To determine the 
rate of discount applicable, the integer variable ITEST is computed. 
It can easily oe seen that (ITEST -1) will be negative for VALUE < 
1000; zero for 1000 < VALUE < 5000; and positive for VALUE > 5000 
(check integer aritnmetic rules). A three-way branch is provided by 
means of an arithmetic IF statement to statements 6, 7 апа “ where the 
net dues are calculatea. 

The next step is to determine whether the payment received is 
less than, equal to or more than the dues, using another arithmetic IF 
Statement. Depending on which amount exceeds the other, the difference 
is entered either under tne column AMOUNT DUE or EXCESS PAYMENT and a 
NIL entry is made in the other column, If the payment made is equal to 
the dues, NIL is entered in both columns (statements 11, 12 and 13). 
Note that the spacing is adjusted such that the entries line up with 
the column heaaings. Finally, the program goes to statement 5, 
reads the next set of variable values, checks for end cf job (i.e. if 
any of IBOOK1, IbUOK2, eto. is negative) and either stops or continues 


within the loop for the next customer, 


Example 6-6 


In the above example, we used an arithmetic IF for three-way branching 
to calculate tne discounted price. Though this uses only a single 
Statement, it is expensive in computation time since it uses division. 
We can replace this with logical IF statements. 

This can be done as follows: 


IF (VALUE .LT. 1000.) DISCNT = VALUE * 0.1 
IF (VALUE .GE. 1000. .AND. VALUE .LT. 5000.) DISCNT - 


1 VALUE * 0.15 
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IF (VALUE .GE. 5000.) DISCNT = VALUE # 0.25 
DUES = VALUE - DISCNT 
Alternatively, 


IF (VALUE .LT. 1000.) DISCNT = VALUE # 0.1 
IF (VALUE .GE. 1000.) DISCNT = VALUE * 0.15 
IF (VALUE .GE. 5000.) DISCNT = VALUE * 0.25 


DUES = VALUE - DISCNT 


In the former сазе, only one of the three IF statements will have its 
condition Satisfied, so that the appropriate discount is calculated 
while in the latter, this is not so. For instance, if VALUE is 8000, 
the last two IF statement conditions are both satisfied; DISCOUNT is 
first calculated at 15$ of VALUE and then recalculated at 25%. It thus 
needs two computations. 


Example 6-7 


Let us consider another type of situation. It is necessary to 
determine the average of the marks obtained by the students of a 
class. The number of marks obtained by each student is available on a 
Separate card. The number of students, 
to be dealt witn is known. 


number of cards processed. This count is compared with the total 


с PROGRAM AVERAGE 
READ THE TOTAL NUMBER OF STUDENTS 
READ (5,10) NUMBER 

10 FORMAT (I5) 


о 


с INITIALIZE COUNT AND TOTAL 
TOTAL = 0. 
ICOUNT = 1 


C ENTER LOOP AND READ MARKS OF A STUDENT 
READ (5,15) XMARKS 
FORMAT (2X, F6.1) 
TOTAL = TOTAL + XMARKS 
с ІМСКЕМЕМТ COUNT 
ICOUNT = ICOUNT + 1 


= 
хл л 
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Read NUMBER of 
students 
Initialise 

COUNT & TOTAL 


Read MARKS 


Add MARKS 
TOTAL 


Add 1 to COUNT 


COUNT едчо! 
to 
NUMBER of students 


? 


Divide TOTAL 


Fig. 6-2. Flowchart for Example 6-7 (Averages) 
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IF(ICOUNT .LE. NUMBER) GO TO 5 
AVRGE - TOTAL/NUMBER 

WRITE (6,15) AVRGE 

STOP 

END 


The count is initialized to 1 and incremented once for each traverse 
of the loop. Thus, by the time N cards are processed, the value of 
ICOUNT will be N + 1; at this Stage, the IF condition is not забізііса 
and the program exits from the loop. 


6.3 MULTIWAY BRANCHING 


When it is necessary to execute a multiway branch, one can use a 
Sequence of arithmetic or logical IF statements. Alternatively, a 
computed or an assigned GO ТО Statement can be used, 


ЈЕ: 


6.3.1 The Computed GO ТО 


The computed GO To can be used to select опе out ) 
of several branches, А branch selector variable 
is used to Specify the branch to be chosen, 


For example, consider the statement 


GO TO (4, 3, 1, 12, б). Т ; 


4 
There are five branches, each designated by the a ropriate 
Statement label. The branch selected would depend on the #alue of I. 
It is therefore called the branch selector та on tne фы can be 
conceived of as а rotating arrow sign at а multiroad branch point, 
where the position of the arrow points to the огапећ to pe 
Similarly here, the value of the branch Selector Уаг1аб1е in 
the branch to be taken. In the above statement, if I is 3, the third 
branch or label in the list (its value is 1) is Selected, Hence, 
control is transferred to the Statement labelled 1, 
is 2, the second label (value 3) is selcted and Control goes to 
Statement 3 апа so on. : Tne value of I should not be negative or 0; 
this would be meaningless, Similarly, its value cannot exceed the 
number of branches listed in the GO TO statement (in this 


taken. 
dicates 


Case 5), 


— ы 


1 


— 
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The structure of the computed GO TO statement is as follows: 


Chart 38 


The Computed GO TO Statement 


Branch pointer list 


Branch pointer 
(Statement label) 
(integer) 


Branch selector 
(integer variable) 


[co TO J| ® 


Examples: 
GO TO 


60 TO 


Example 6-8 
Incom 
Up to Rs.10,000 

Between Ез, 10,000-15,000 
Between Ез, 15,000 and 25,000 


Above Rs.25,000 


(3; 
(4, 


# 
е tak for individuals is computed on 5 


її, БОЈЕ 
6, 7),INDEX 


lab rates as follows: 


Nil 

10% of the excess over 10,000 
Rs.500 + 25% of the excess over 
Rs, 15,000 

Rs,3,000 + 40% of the excess over 


В5.25,000 


Let us write а sequence of statements to determine the tax 
payable and the net income for any given value of income, Let us 
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assume that the = 


the variable EARi 
Slabs. Defi 


mount of income is already available as the value of 
15. We must now have а four-way branch for the four 
ning variable I as EARNG/5000.-1, we find that I takes the 
values 1 and 2 for the first Slab, 3 for the second Slab, 4 and 5 for 
the third slab, 6 or more for the final slab, This means that for more 


than one value of I, we huve to take the same branch, This can be 
easily accomplished, as follows: 


I = EARNG/5000. + 1. 
IF (I GT. 6) 1 = 6 
GO TO (1,1,2,3,3,4)2 
1 TAX = 0 
GO TO 5 
2 TAX = (EARNG - 10000.) * 0.1 
GO TO 5 
3 TAX = (EARNG - 15000.) # 0,25 + 500. 
GO TO 5 


4 TAX = (EARNG - 25000.) * 0.4 + 3000. 
5 ANETI = EARNG - TAX 


We must ensure that I does not take values greater than 6, The 
logical IF statement accomplis 


hes this, 
Finally, a word about the reason for the 


The statement is called a co 
computed, as in the above exa 


name of this Statement, 
mputed GO TO because the value of I is 
mple, 


6.3.2 The Assigned GO TO 


The ASSIGNED GO TO Statement 
way branching, In this case, 
is specified directly by an 
being pointed to indirectly, 


accomplishes multi- 
the destination label 
assignment instead of 


Consider the statement 
GO TO І,(5, 12, 14, 17, 13) 


The branches available here 


are five and are designated by 
Statement labels in the list, 


Which branch is selected depends upon 
‘the value of I, I directly specifies the place where control is to be 


transferred i.e, the label of the appropriate Statement, 
in the label lists are the only Permissible value of I, 
to be assigned to I, not by an input or an arithmetio 
statement but by a special GO TO assignment Statement, 


The numbers 
А value has 
assignment 
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An example of such a statement could be 
ASSIGN 14 TO I 


This naturally must occur before the GO TO is encountered, 


The general forms of the assigned GO TO and the GO TOAssignment 
statements are as follows: 


Chart 39 


The Assigned GO TO Statement 


Branch pointer list 


Branch pointer 
(statement y 


Branch designator 
(integer variable) 


integer) 


бо то @Шй®ШЕ- 


| 
' 
П 
П 
s | 


Examples: 
GO TO М, (23, 32,41, 6) 


GO TO PAT, (2,6,8,4) 


The branch taken by the program is designated by the value of the 
branon designator variable in an assigned GO TO statement, The 
elements of the label list are tne only permitted values of the 
variable, An easy way of remembering tnis convention would be to note 
that the GO TO I part of the statement really means GO TO І, The list 
that follows is more or less inciaental, А GO TO assignment statement 
is used to assign one of the values from this list to the variable I, 

In the computed GO TO on tne otaer hand, the list immediately 
follows the GO TO, The I cotes after vhe comma, This indicates that 
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control should go to one of the statements designated in the label 
list. I is merely a pointer which inaicates the selected label or 
branch. 

The assigned GO TO statement is useful for multiway branching. 
This ofcourse can also be accomplished by the computed GO TO or a 
Sequence of Logical or Arithmetic IF statements. Use of the assigned 
GO TO is somewhat complicated. It requires a number of rules and 
restrictions to be followea. These are as follows: 


1) The statement label list of the GO TO statement must contain 
labels of all statements to which branching is intended. 

2) The branch designator variable must be assigned a proper 
value using a GO TO assignment statement before hand. This 
variable is of a special type; it can take only those values 
which occur in the statement label list of the assigned GO 
TO statement. Its value must be assigned using only a GO TO 
assignment statement. It cannot even be used or referred to 
Subsequently in an arithmetic or any other statement. 


It would seem that use of the as. 
to a more optimizea or efficient program as compared to other 
equivalent statements. What then is the purpose of this statement? 

Consider a situation where a common sequence of statements S has 
to be executed at several different parts of the same program. 
Instead of repeating this Sequence each time, it would be conveneint 
to write it out only once, Wherever this Sequence is required, we 
could then 'jump' to this common Sequence provided that, after it is 
executed, we could jump back to where we came from. Unless this 
return path is established before jumping to the common Sequence, 
'context' would be lost and mistakes would occur. An assigned GO ТО 
is convenient to ensure that this 'return jump’ is done Properly. The 
common sequence S is made to end with an assigned GO TO statement. 
Wherever a jump to the sequence S is desired, it is only necessary to 
first assign the proper value to the СО TO variable. 


signed GO TO does not give rise 


The GO TO assignment and the assigned GO TO 
statements are useful for establishing a return 
path: e.g. when a common sequence of instructions 
has to be executed at different parts of program. 
It then becomes necessary to jump to this Sequence 
of instructions from different parts of the 


program and to jump back there after executing the 
Sequence, 
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As soon as the common sequence is executed, the assigned GO TO is 
also executed and control is automatically returned to the statement 
specified in the GO TO assignment statement (we will come across a 


n in the case of subroutines in Chap.8). 


similar situatio 
nt is illustrated below. 


Use of an assigned GO TO stateme 


Chart 40 


The GO TO Assignment Statement 


Branch designator value 
(statement label, integer) 


Branch designator 
(integer variable) 


| 


[ASSIGN | (I) | TO 


Examples : 
ASSIGN $ то g 
то МАХ 


ASSIGN 24 
ASSIGN 35 TO LUX 


Example 6-9 
ommon Factor (HCF) of three numbers, The HCF of 


Calculate the Highest C a 
three or more numbers can be calculated using the relationship 


HCF(A,B,C) = HCF(A, HCF(B,C)) 
calculating the HCF of two numbers has already been 


A program for 
This can be utilized here. 


written in Sec. eus 
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The program ts. intended ‘to calculate the HCF of variables I, J 
and K. This is accomplished using the sequence of statements between 
Statement 5 and statement 10. These calculate the HCF of integer 
variables A and В. | 

То calculate the HCF of three numbers, the method followed is to 
first calculate the HCF of the first two numbers. The HCF of this HCF 
and the third number is calculated in the second step. 


A I 
B J 
Assign 200 toL 


Calculate 
HCF of 
AandB 


GOTOL,(20C,300) 


Statement 300 


B = HCF 
Assign300toL 


Fig. 6-3 Flowchart for Example 6-9 (HCF) 
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200 A = 


ASSIGN 300 TO L 
GO TO 5 


5 IF (B .EQ. A) GOTO 10 
IF (В „СТ. A) B=B-A 
IF (A .GT. B А-А-В 
GO TO 5 
10 HCF = A 
GO TO L, (200,300) 


This means that control has to pass to the sequence of statements 
calculating the HCF (statements 5 to 10) and back at two different 
points in the program. Let us see how this can be dane. 

The first two assignment statements in the program assign the 
values I and J to the integer variables A and В. Now control can be 
passed to the statement 5 for calculating the HCF of A and B (і.е. of I 
and J). But first, one must be sure that control сап eventually come 
back to the main part of the program (i.e. to statement 100). For 
this, we use the GO TO branch designator K. Now the unconditional GO 
TO transfers control to statement 5, the HCF is calculated and the 
assigned GO TO returns control to statement 200. 

The second step can now begin. To calculate the final HCF using 
the intermediate HCF and the third number K, these two are assigned as 
the values of A and В. Again, before transferring control, the return 
path is established by the GO TO assignment statement. This time the 
GO TO assignment statement gives the value 300 to the branch 
designator variable L. This makes sure that after the final HCF is 
calculated, control comes back to the statement labelled 300, The 
execution of the remaining part of the program can then proceed from 
this point onwards. - 


168 Programming in FORTRAN 


Thus the HCF calculation is invoked at two points in the program: 
immediately before the statement 200 and immediately before the 
statement 300. In both cases, control is returned (after completing 
the necessary computation) to the point where it came from, 


6.4 REPETITIVE AND ITERATIVE LOOPS 


We have described several examples of-straight sequences of statements 
which accomplish specific computational tasks. We have also considered 
examples of two-way and multiway branches. The choice between the 
branches depended on prespecified criteria (concerning the value of 
an arithmetic or a logical expression), һе have also studied a few 
exampies of loops where a sequence of Statements is repeated a number 
of times, 

In applications such as the one 
6-7, each traverse of a loo 
performed on a different data set. The procedure is, therefore, 
repetitive. The program of Example 6-4 ill 
looping. Here, each traverse of the 
of data to be operated upon, 
of the loop are used as ope 
example of an iterative pro 
iteration, 

In Sec. 1.4, we mentioned the im 
computer programs, Let us BO over 
Firstly, the effort involved in wri 
general, not be worthwhile unless t 


S cited in Examples 6-3, 6-5 and 


ustrates a different kind of 
loop does not cause different sets 
The results obtained during one traverse 
rands for the next traverse. This is an 
cedure, Each traverse of the loop is an 


are repeated a 
Possible to perform 


computational tasks without loops, it would be extremely difficult to 


da opm could, for instance, try to rewrite the program of Example 6-5 
without the facility of looping. Not only would the programs become 
much longer, but also almost all the statements would have to be 
repeated as many times as there are input cards; a different program 
Would be required for each different run, if the number of data cards 
varies, The program of Example 6-4 cannot be written without loops, 
unless the number of iterations is prefixed; in such a case, the 
accuracy required cannot be specified, In these examples, an exit from 
the loop is effected when a prespecified criterion is met, In Example 
6-3 for instance, this depends on an external input: when the new 
input value assigned to a variable is negative. In Example 6-4, 
looping terminates when the result of computation satisfies a given 
accuracy criterion. In Example 6-7, it is necessary that the loop be 
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traversed a given number of times and looping terminated when the 
count exceeds the specified limit, 

In each of these cases, exit from the loop involved conditional 
branching. It is for this reason that the IF and conditional GO TO 
statements are important in FORTRAN and the conditional jump is the 
most important instruction in a computer. 


6.5 THE DO STATEMENT 


We have seen that applications exist in which a loop has to be 
traversed a given number of times, This requires three statements: one 
to initialize tne counter before entering the loop, another to 
increment it within the loop, a third to check each time whether the 
limit has been reached and cause branching either to the beginning of 
the loop or outside it. It is common practice to start the counter 
with 1, increment it by 1 for each traverse of the loop and check it 
against a specified upper limit. The other possibilities are to 
initialize the counter to a high value, use an increment other than 
unity, decrement instead of increment the counter, and so on, 


The DO statement permits all loop management 
operations - counter initialisation, incrementing 
and limit checking - to be accomplished in a 
consolidated manner. 


Let us consider, for example, the following statement: 


DO 10 I = 1, 20, 3. 


This specifies that the sequence of statements following it up to 
and including the statement labelled 10 have to be executed 
repeatedly. This set of statements is called the "range" or "domain" 
of the DO statement. The variable I functions as the counter and is 
termed the index variable. Its initial value is 1 and the final value 
is 20. The increment is 3. In other words, the counter or index 
variable is set to the initial value at the start. of the DO 1оор. 
After each traverse of the loop, it is given the specified increment. 
After this, the current value of the index variable is checked against 
the upper limit. The loop is repeated till the upper limit is 
exceeded, At this point, control comes out of the loop to the 
statement which occurs immediately below the last statement of the 


loop. 
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l:ItL 


Fig. 6.4 Example of a DO Statement, an equivalent 


Sequence using the IF Statement and the 
corresponding flowchart 


Listed below are tne salient features of the DO statement and the 
restrictions applicable in its use. 

The initial value, the upper limit and the increment are called 
index parameters and must all be positive. The initial value should 
not exceed the upper limit. If this happens, as one can see, the loop 
will be executed only once, 


(1) No check is made against the upper limit before the first 
traverse of the loop. The loop will therefore be executed 
once irrespective of other conditions. 


(2) Normally а DO loop is to be executed at least twice; else it 
is not needed. 
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Chart 41 
The DO Statement 


Upper limit 


Increment 
(optional) 


Unsigned 
integers or 
integer 

variables 


Index variable 
(integer variable) 


Range termination pointer 
(statement label, integer) 


Initial value 


OOH a e 


Examples: 


DO 100 I =3, 46 
DO 24K2 =4, 13,2 
DO 36MN4= K, 1X, LV 


(3) When control exits from the loop, it passes to the statement 
immediately following the last statement in the loop, namely 
the one bearing the range termination label. The number of 


times the loop is traversed is 


(upper limit - initial value) 


--------------------------- + 1 


(inerement) 


and is calculated using the rules of integer arithmetic 
(4) The increment specification is optional; when it is GSitbed 
the increment is taken to be one, d 
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(5) 


(6) 


(7) 


(8) 


(9) 


(10) 


When control resides within the loop, the index variable is 
available like any other ivariable. It can be used as an 


operand for assignment of values, input and output 
operations, ete, 


In most implementations, changing the value of an index 
veriable affects the number of times the loop is to be 
traversed (except in some implementations where the number 
of times the loop is to be traversed is computed to start 
with and a separate counter is used to control this). 

The first statement in the range of a DO loop must be an 
executable statement. The terminal statement in the range 
must also be an executable statement. It should not bea 
Statement connected in any way with transfer of control. It 
Should not bea computed, assigned or unconditional GO TO, 
arithmetic IF, RETURN, STOP, PAUSE or a logical IF 
containing any of the above. The reason for this is that 
there is an implied branch at the terminal statement of a DO 
loop. If, an addition, the statement itself involves 
branching, there would be ambiguity as to which of the two 
sets of branches would have precedence, 
unconditional GO TO, STOP and RETURN, 
make the DO loop inoperative by invariably transferring 
control (out of the loop) during the first traverse itself, 
In view of these restrictions one could, as a safety 
Precaution, end all po loops with a CONTINUE statement: 
this is a dummy statement and does not cause any additional 
instructions in the object program. 
Normally, exit froma DO loop, as mentioned above, occurs 
when the index exceeds the upper -imit; the loop is then 
said to have terminated normally. Іп sucha case, control 
passes on to the statement immediately below the terminal 
statement of the DO loop. An exit can also take place if 
there is a GO TO or an IF statement in the loop. Control 
can be transferred to any statement outside the loop in this 
manner. This constitutes an abnormal but permitted 
termination of the loop. 

Transfer of control into a loop from outside is not 
permitted. This is because, in such a case, the index 
variable wll not have been suitably initialised. It is, 
however, permissible to jump out of a loop, perform a Series 
of calculations and jump back into the loop. 

The current value of the index variable is available for use 
in ease of abnormal termination of the loop; changing its 
value before re-entry, however, would alter the number of 


Statements such as 
on the other hand, 
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times the loop is executed before normal exit, 

(11) The value of the index variable is undefined for normal exit 
from the loop, it could be different in different 
implementations, and should, therefore, not be used. 


Example 6-10 


Let us now rewrite the program of Example 6-7 using DO statements, 


с PROGRAM DO 
READ (5,10) NUMBER 
10 FORMAT (15) 
TOTAL = 0 
DO 20I = 1, NUMBER 
READ (5,15) XMARKS 

15 FORMAT (X,F6.1) 

20 TOTAL = TOTAL + XMARKS 
AVRGE = TOTAL/NUMBER 
WRITE (6,15) AVRGE 
STOP 
END 


Examle 6-11 


We have aready noted that the index variable can be used as an operand 
within the DO loop. Consider a program for calculating the factorial 
of a given variable N. The operative part of this program is as 


follows: 
IFACT = 1 
DO 21 = 1,N 
2 IFACT = IFACT * I 


It is easy to see that during each traverse of the loop, IFAC? 
which is initialized to 1, is multiplied by the current value of the 
index I; control exits after N traverses of the loop, so that IFACT 
will be 1*#2* 3%... N. 
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Example 6-12 


We are required to find the product of a sequence of N numbers. 
Obviously, this computation would be convenient using a DO statement. 
It also provides a good reason for jumping out of the DO loop since if 
any one of the sequence of numbers is zero, there is no need to 
continue with the multiplication. 


(5 PROGRAM PROD 
6 READ NUMBER OF NUMBERS TO BE OPERATED ON 
© INITIALIZE PRODUCT 
READ(5,10) N 
10 FORMAT (IH) 
PROD = 1. 


с ENTER LOOP - READ NEXT NUMBER 
с FORM PROD , CHECK FOR ZERO AND EXIT IF ZERO 


00 5 1 =1,1 
READ (5,3) A 
3 FORMAT (F10.3) 
PROD = PROD * A 
IF (A .EQ. 0.0) GO TO 6 
5 CONTINUE 
e PRINT PROD AND STOP 


6 WRITE (6,20) PROD 
20 FORMAT (614.5) 
STOP 
END 


The product is formed in REAL mode since this permits inoreased 
dynamic range, The total number of numbers to be multiplied is assumed 
to be available in the first card and is used as the limit for the DO 
loop. Each traverse of the loop causes a number to be read and 
multiplied to the earlier product, The program continues for the 
expeoted total number of steps if none of the numbers read is zero, If 
on the otner hand, any one of the numbers is 
transferred out of the loop and no more numbers ari 
is printed. Note that it will be zero and theref 
multiplication with the current number is effected 
made, Note also that, 
a dummy CONTINUE stat 
the Loop. 


zero, control is 
е read, The product 
ore correct, since 


before the check is 
since the last statement of the range is an IF; 


ement is inserted as the terminal statement in 
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6.6 NESTING OF DO LOOPS 


Often, it becomes necessary to embed a loop within 
another loop. Such a "nesting" of loops is 
possible using the DO statement. 


In such cases, the domain or range of the inner loop must be 
of the outer loop. Failure to follow 


completely enclosed in the domain 
Nested loops may share a common 


this rule leads to confusion. 
terminal statement. 


The following are a few examples of permitted nesting: 


Example 1 Example 2 Example 3 
no 10 I = 1,10 Do/10 I = 1,10 DO 10 I = 1,10 
D . ... ... DO 10 Jsl S 
DO 9 J=1,5 DO.9 J=1,5 | e 
9 MANN ADT 755.55 ... 10) Skiers қ 
О. 20-89686 


. index variable has to be different for each 
DO loop in such a nested configuration. There are limits to the depth 
of nesting permitted; in most systems however, this limit is so high 
as not to impose any constraints in practical problems. 

The restrictions regarding jumping into and out of nested loops 
are very similar to those for single loops. Fig.6.5 summarises the 
rules. The arrows indicate jumps. Those that are not permitted have 
been crossed out. The following types of jumps are permitted. 


Needless to say, the 


(1) Jumping out of a loop (c, d and e in Fig.6.5.) 
(2) Jumping from one statement to another, within the same loop 
(b and 6). 


(3) Jumping out of a jumping back into it (j and k). 


loop and 


The following are not permitted: 


op from outside (a and h) 


(1) Jumping into a lo 
loop into another (£) 


(2) Jumping from one 


and how these restrictions are all 


We can quite easily underst 
А11 jumps that do not disturb 


linked with index variable problems. 
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the index variable are permitted. Jumps that would cause an index 
variable to be used before it is initialisea are prohibited. Where 
control is transferred outside the range before the DO condition is 
satisfied, the values of the index variables are preserved, 


= 


Fig.6-5 Jumping in nested loops 
Arrows that are crossed out 


represent jumps which are 
not permitted. 
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EXERCISES 


1. Identify and wherever possible, correct the errors if any, in the 
following statements: 

(i) IF A*!3 ~ B STOP 

(di) IF (M .EQ. (N42) 2, 3, 4 

(iii) go to i(2,3,4,7,4) 

(àv) GO TO (4,3,4,3,7) 

(v) ASSIGN 4.732 TO X 

(i) DO4TI = 14, 3, 1 

(vii) DO 5 Y = 1, Y«1, 2 

(viii) DO 3 K = 2, 12, 3-K 

(ix) ро 20, 111111 = JJJJJJ, KKKKK, 4 

(x) DO 40 I = 3A/B-C, B, C 

(xi) DON,I = J,K 

(xii) 64 IF (X/2-36) 24, 36, 64 


2. Identify and wherever possible, correct the errors if any, in the 
following sequences of statements: 
(i) І =" 


CONTINUE 
WRITE (6,2) I,J 


= 


(ii) 


aH 
n 

H 
k 
= 
о 


(iii) 


CONTINUE 
WRITE (6) I, J 


-à 


(iv) DO4I=1,K =“ 
М =: 

K = К+І 

CONTINUE 

WRITE (6) I, K 


= 


178 Programming in FORTRAN 


3. Rewrite all the programs in the examples cited in this chapter 
using, 


(i) only logical IF statements 


(ii) only arithmetic IF statements 
for branching. 


4, Modify the program of Example 6-5 so that a serial number із 
printed for each entry in the table. 


5. Replace the computed GO TO statements in the examples cited 
in this chapter by assigned GO TO statements and vice versa, making 
other necessary changes at the appropriate places. 


б» Rewrite the program of Example 6-1 after putting the print 
statement inside the DO loop. 


1% Write а program to find out a 5 digit number which, when 
multiplied by 4, reverses itself (the most significant digit becomes 
the least significant digit and so on). (You may do an exhaustive 


search; estimate the maximum time that such a program might take on 
any computer known to you.) 


8. А boy standing оп the flat roof of a high building wishes to kick 
a ball just hard enough to make it graze over the compound wall which 
is at a distance from the building. After several attempts during 
which he over shoots or under shoots, he finally succeeds, Write a 


program to replicate the behaviour. (Assume that the ball moves 
horizontally to start with. 


Knowing the heights, H1 and H2, of the 
building and the wall, and the distance (D) between the two, an 
expression ean be written for the height H of the ball at distance p, 
If H-H2 is negative, increase V by 1 m/s. 


Compute H and repeat the 
loop till H-H2 changes sign. Then change the sign of the increment, 


make it 1/4 of its value and compute H-H2. Repeat the loop of 
incrementing V and computing Н-Н2 till H-H2 changes sign again. Then 
change the sign of the increment, make it 1/4 of its value and so оп 


till |(Н-Н2)і is less than 1 ош.) Also compute the angle at which the 
ball grazes the top of the compound wall, 
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ARRAYS AND SUBSCRIPTED 
VARIABLES 


7.1 INTRODUCTION 


So far, we have been dealing onlv with single data elements; each 
entity was dealt with separately. A variable name, for instance, 
represented a single (integer, real or complex) number and, with the 
exception of complex or double precision data, was assigned a single 
location in the memory. There are many real life situations where one 
encounters entities which consist of a number of elements which are 
related to each other and can be dealt with more or less uniformly. 
. Examples are the ages, weights, heights and other vital statistics of 
students of a class, the marks obtained by them in various subjects in 
a given test, in the same subject in different tests, for different 
questions in each subject, and so on. In fact, even a complex number 
is an instance of an entity with two elements (the real and imaginary) 
which have to be dealt with together. The components of a2, 3or n- 
dimensional vector and the elements of a matrix are also examples of 
entities which are related to each other and have generally to be 
operated upon uniformly. 

The convention of subscripts in algebra is very convenient to 
deal with such cases. The resultant R of the three-dimensional (force 
or velocity) vectors A, B and C can be represented, for example, as 


follows: 
R,cA.4B,*C, or Ry = Apaec 


Rz Ay + В, + с, ог R5 z А + B5 + Ср апа 


В, = А, + В, + С, or R3 E A3 + B3 % с; 
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The dot product of two vectors A(Ai,A5,..., Ap) and 


B(B4,B2, ...,By) can similarly be Simply expressed as 


n 
yon Bi 
i=1 


It would be inelegant and tedious to give separate names to 
each element of such compound entities (or arrays) and deal with them 
individually in a FORTRAN program, FORTRAN, therefore, provides the 
facility of dealing uniformly with such elements. Entities which 
consist of a number of elements are termed subscripted variables or 
arrays. An entire array can be given one common name. Each element can 
be referred to by using subscripts. The name AGE, for example, could 
be used for referring to an array consisting of the ages of all the 
40 students of a class, 

Since subscripts and superscripts cannot be written in FORTRAN in 
the conventional way as in algebra, they are written in the Same line 


in parentheses (e.g, ACD, B(20), X(I,J) instead of Ај, Bog, ^ij 


' respectively). Commas arc used to separate Subscripts, The number of 
subscripts gives the dimension of the array. Variables with up to 
three subscripts (Les, three-dimensional arrays) are permitted in 
most versions of FORTRAN. Some allow up to seven subscripts. 

Each element of an array is Separately ac 
A(1,2), B(200) ete.) It is assigned one or mor 


complex and 
er and real), Needless 
of the same type. 


double precision and one location for type integ 
to say, all elements of a Biven array have to be 


7.2 STORING OF ARRAYS IN MEMORY 
7.2.1 The DIMENSION Statement 


The total number of locations required for stor 
the data type, the number of dimensions (or Subscripts) and the 
maXimum number of elements in each dimension, i.e, the maximum value 
that each subscript can assume (the minimum value is always 1), 


ing an array depends оп 
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The general structure of an array element is as follows: 
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Array Element 


Integer constants 
Integer variable 


Subscript expression 


or integer variable 
or integer constant 


Examples : 
А(Х) 
FORCE (3,4,7) 
M(5*X+4,3, 2*Y-3) 
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Chart 43 
The DIMENSION Statement 


Variable name 


Subscript bounds 
(integer variables 
or integer constants) 


CORO RO) 


Dimension 
specifier 


DIMENSION) (d) |, |(d)]-- 


n 


Examples: 
DIMENSION MATRIX (10, 10, 20) 
DIMENSION У(10), МА55 (4,2), Х(4,4,5) 
DIMENSION V(ISIZE) 


DIMENSION AGE (40), WEIGHT (40), MARKS (8, 4,6) 
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The DIMENSION statement provides information 
regarding the data type, number of dimensions and 

* size of arrays to the compiler and is a 
nonexecutable statement. 


The number of entries in the subscript bound list indicates the 
dimensionality of the array; i.e. the number of dimensions it has. The 
subscript bound itself inaicates the number of elements permitted in 
that dimension. An entry MATRIX (10, 20, 30) in a DIMENSION statement 
indicates that the array named MATRIX is three-dimensional (because 
there are three entries within brackets). The first entry 10 indicates 
that there are 10 elements in the first dimension; similarly, that the 
number of elements in the second and third dimensions are 20 and 30 
respectively. 

Examples of DIMENSION statements are: 


DIMENSION А(50), ARRAY(5,4), MATRIX(10, 10, 10) 
DIMENSION AGE(HO), WEIGHT(!O), IMARKS(8,4,6) 


The total number of locations required for such arrays can be 
easily computed. For instance, A (10) requires 10 locations, MATRIX 
(10,10,10) a thousand locations, M(40,8,3) 960 locations, FORCES 
(5,5,3) 150 locations (5x5x3x2, being type COMPLEX) and so on. 

It is not always possible to know beforehand the sizes of the 
arrays that one might have to deal with. It is, therefore common 
e to provide in the DIMENSION statement for the maximum size 
e might expect for each array. The actual size of the array 
computation (e.g. when the values of the elements 
are provided by input or arithmetic assignment statements). A 25 x 25 
matrix may be stored in an array A which has been declared as 
A(100,100) in a DIMENSION statement. In such a case, A(26,1), A(1,26), 
eto. will remain undefined. This, however, need not cause any problem 
since they will not be referred to in the program. н 


practic 
that on S 
gets defined during 


Careful choice of bounds is necessary to kecp 
memory requirements low. Reduction of array sizes 
is a standard solution that one attempts when a 
program does not fit into the available memory 


space. 


It is possible to use integer variables as subscript bounds in a 
dimension statement. This makes it possible to deal with arrays of 


varying sizes in subroutine and funetion subprograms (see chapter 8), 
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Dimensional information can also be included in a 
type declaration statement. 


Chart 44 
The TYPE Statement 


Type list 


Variable nome or 
dimension specifier 


Type specifier 


Examples: 
INTEGER A, X(100),B 
REAL INCOME, AGE (40), M(4, 80,3) 
DOUBLE PRECISION MATRIX (100,200), B2 
COMPLEX FORCE (5, 5,3), MIN 
LOGICAL RESULT, MAN 


The naming convention (names starting with І, J, 
K, L, M, N being integer variables) is valid for 
subseripted variables also. This may, of course, 
be superseded by type declarations. 


7.2.2 Natural Array Order 


To avoid confusion, it would be desirable to adopt a consistent 
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notation regarding subscripts: the first subscript can be taken to 
denote row number and the second subscript column number in a two- 
dimensional array. A three-dimensional array can be visualized as a 
stack of slices, each slice being a two-dimensional array; the third 
subscript denotes the slice number. 

The elements of an array are stored in adjacent locations of 
memory. This is straightforward for one-dimensional arrays. Even two 
and three dimensional arrays are required to be stored in an 
undimensional sequence. г 

Consider а two dimensicnal array A(8,6): 


АСТИ) "АС Azle. А1569, 

A(2, 1), A(2,2) + А(@ 69 

A(8,1), A(8,2), ... A(8,6) 
The convention is to store it column by column. Remembering that the 
second subseript denotes the column number, the sequence becomes 


AC, 10, А(2,1), ... ALB, 1), 
А(1,2), А(2,2), ... А(8,2), 


А(1,6), А(2,6), ... А(8,6) 
This is called the natural array order. A three-dimensional array 
A(i,j,k) is stored in the sequence 


ACT 1519 ee ,80251,1):A(1,25195 AGE, 214 оте КИ {Gyan AGIs D, 
Хау Jis ik udis 24015852) 


.. ... n . 


Сї s ihe QU Рә, METENS 


The array is thus stored slice by slice (the third subseript denoting 
the slice number) each slice being organized in the natural array 


order for two-dimensional arrays. 
It ean easily be seen that the element A(l,m,n) іп an array of 


size ix j x k, is the [{(n-1)j+m-1}i+1]th element of the sequence, 
Individual elements of an array can be referred to by the array name 
and subscript value(s). The element A(2,4) of the 8 x 6 array А is the 
26th of the 48 elements of the array. It can, therefore, be referred 
to either as A(2,4) or А(26). An element of a three-dimensional array 
сап also be similarly referred to using 3 subscripts in the 
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conventional way, or a single subscript (in some implementations). It 
weuld, however, be wrong to make such Substitutions in dimension 
Statements e.g. A(10,10) and B(5,5,5) must not be substituted by 
A(100) and B(125). If this is done, dimensionality information is lost 
and later references to elements such as A(1,4) or B(2,1,2) will not 
be possible. It must also be remembered that the sizeix jxk 
relevant for the calculation is the one declared in the DIMENSION 
Statement and not the actual size of the array, which may be smaller. 


To summarise, the elements of an array are stored 
in adjacent locations of memory. This is 
Straightforward for one-dimensional arays. 
Two-dimensional arrays are stored column by column 
(the second subscript denotes column numbers). 
Three-dimensional arrays are stored Slice by 
slice (the third dimension denotes Slice 
number), 


7.23 The EQUIVALENCE Statement 


For most applications, memory capacity is not a serious constraint. 
Use of large arrays can, however, create problems. A Single 100 x 100 
array can occupy a major part of the available memory space even in 
large machines. There is also a premium on memory space requirements 
in multiprogramming and time sharing environments where programs of 
Several users have to coexist and cooperate in a System. It would, 


therefore, be desirable to economize on ccmputer Space requirements, 
wherever possible, 


Under normal circumstances, memory locations assigned to 
variables are available to them for the entire duration of the 
computation. This is not always necessary. For example, let us 
consider a program which operates on arrays A, B, C and D which are 


all quite large. The arrays A and B are required, say, only in the 


The EQUIVALENCE statement permit: 
Space to be used by two or more 
they aare required at diffe 
program. 


S the same memory 
arrays, so long as 
rent times in a 
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Chart 45 


The EQUIVALENCE Statement 


Equivalence element 


(variable or array element) 


Equivalence element list 


| 
12 


[EQUIVALENCEJ(CO DI (ОЛ 


Examples: 


EQUIVALENCE (X, Y) 


EQUIVALENCE (X,Y,Z), (Ғ,0(4)) 
EQUIVALENCE (J, META? 


This statement specifies that the variable names in each variab 
list are synonyms of each other; it causes the assignment of E 
one 
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common location to them all. Consider the statement 


EQUIVALENCE (A,B), (I,M,.N) 


The variables A and B are assigned the same location; similarly, the 
variables I, M and N are assigned one common location. 

If array elements are named in an EQUIVALENCE statement, the 
arrays are so aligned that the named elements оссиру the same 
location, Since contiguity of elements of an array is maintained, the 
equivalence of other items of the concerned arrays сап be derived from 
the above. 

Consider the following pair of Statements: 


DIMENSION A(10), B(10), B1(10), 2(15), D(10,10), E(100), F(10,5) 
EQUIVALENCE (A(1), B(1), B1(6), €(5)), (D(1,1), Е(1), F(1,1)) 


Let us consider the first list in the EQUIVALENCE Statement 
B, B1 and C). The memory assignment is as follows; 
Same column are assigned the same locations: 


(arrays A, 
elements in the 


АСТ), А(5),..., А(10) 
В(1),..:, B(5),..., B(10) 
BICI), BT(2 «os B1(6),..., B1(10) 


CO), р.а, ОБ а, C(9),..., С(14), C(15) 


It сап thus be seen in the above case that the two equivalence 
statements EQUIVALENCE (A(1), ва), B1(6), C(5)) ana EQUIVALENCE 
(A(5), B(5), B1(10), С(9)) are equivalent, 

Let us now take the Second set involving the аггауз D, E апар, 
Here, D and F can first be expanded into a linear Sequence of elements 
following the natural array order; these can be overlapped to align 


the elements named in the EQUIVALENCE Statement, This is left аз an 
exercise for the reader, 


The EQUIVALENCE Statement is a 
programmer inadvertently uses 
the same variable or array in 
the same program, 


lso useful when the 
different names for 


different parts of 


Rather than change one of the two 


occurs, he can use an EQUIVALENCE 
programming practice to avoid such 


names into the o 
statement, Tt á 
patch-ups, 


ther each time it 
8, ofeourse, good 
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7.3 USE OF ARRAYS 


We have already mentioned that individual elements of an array can be 
referred to and used as operands in a program. ie have also said that 
integer constants are permitted as subscripts. In addition, integer 
variables (and some simple integer expressions) are permitted as 
subscripts, An array element can be used in practically any synta^tic 
construct where a simple (unsubscripted) variable can be used, 

Let us now see a few examples of use of subscripted variables, 


Example 7-1 


A class consists of 40 students whose heights in centimetres and 
weights in kilograms are known, It is required to identify students 
who are over-weight, under-weight or average. Assume that a student is 


under-weight if 
(Height in em) . (Factor 1) > (weight in kg) 


and over-weight if 
(Height in em) . (Factor 2) < (weight in kg) 
The program for achieving this is as follows: 


с PROGRAM WTCHEK 
DIMENSION W(40), H(40) 


C READ F1 AND F2 
READ. (5,10) F1, F2 
10 FORMAT (2F5.3) 


с READ ARRAYS Н AND W 
DO 20 I = 1,40 
READ (5,15) N1, H1, W1 
15 FORMAT (I2, 2(2X, F6.3)) 
W(N1) = W1 
20 H(N1) = H1 
WRITE (6,25) 
25 FORMAT (25HbSL bNOSbOFbUNDERWTbRTDNTS) 


ASSIGN 30 TO K 


C CHECK WHICH STUDENTS ARE UNDER WEIGHT 
DO 30 I = 1, 40 
IF (W(I) .LT. F2 * H(I)) GO TO 60 
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30 CONTINUE 


WRITE (6,45) 
45 FORMAT (2lHbSLbNOSbOFbOVERWIbSTDNTS) 


ASSIGN 50 TO K 
с CHECK WHICH STUDENTS ARE OVER WEIGHT 
DO 50 I = 1, 40 
IF (W(I) .GT. F2 * H(1)) GO TO 60 
50 CONTINUE 


STOP 


с ADD SL. NO. OF OVER WT OR UNDERWT. STDNTS 
с TO LIST. RETURN TO WITHIN LOOP 


60 WRITE (6,75) I 
75 FORMAT (1Hb,I3) 
GO TO K,(30,50) 


END 


The factors F1 and F2 are read first, 
the serial number of the Student, his height in centimeters and weight 
in kilograms, The last two are entered into 
W(40). This information is assumed to be ava 


The subsequent arithmetic assignment statements assign these values to 
elements W(4) and H(4) of the two arrays. All 0 elements of each 
array are similarly filled, 

The title for the list of under-weights 1з then printed, The two 
arrays are scanned for under-weights in the next DO loop using the 
logical IF. When the condition is Satisfied, 


assigned GO TO. Note that its 
appropriate value prior to the sta То: do these 
within the loop would have been wasteful, 
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After a normal exit from the loop, the title for the over-weight 
students is printed. A similar procedure is repeated to check for 
over-weights, whose serial numbers are printed, 

The same effect could have been accomplished in a somewhat more 
straightforward manner by including two Separate print statements 
within the two DO loops instead of statement 60 and the assigned GO 
TO. We have adopted this method to illustrate the use of an assigned 
GO TO as well as jumping out of and into DO loops. 

The program сап also be made more general by keeping the number 
of students also as a variable (NUM, say). Its value can be read in 
along with F1 and F2. The upper limit of the index variable in each of 
the DO statements can be the variable NUM instead of the constant 40, 
This is left as an exercise for the reader. 


Example 7-2 


The marks record of a class of students is available (for various 
tests and for various subjects for each test). It is required to list 
the maximum marks scored in each subject and each test and the roll 
numbers of the students who scored these marks. 


с POGRAM MAXMRK 
INTEGER SNO 
DIMENSION MARKS(40,8, 12) 
READ (5,10) MARKS 
10 FORMAT (12(2Х,12)) 


WRITE (6,20) 
20 FORMAT (32HbSUBJECT bb, TEST bb, ROLLNObb, MARKS ) 


DO 40 J = 1,8 
DO 40 K = 1,12 
MAXM = 0 


.DO 30 I = 1,40 
IF (MAXM .GT. MARKS (I,J,K)) GOTO 30 
ЗМО = I 
МАХМ = MARKS (I,J,K) 
30 CONTINUE 
lO WRITE (6,50) J,K, SNO, МАХМ 
50 FORMAT (2X,12,7X,12,4X,12,6X,12) 
STOP 
END 


It would be convenient to organize the marks record аз a three 
dimensional array MARKS : the roll numbers of the students M 
5 
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one ‘dimension, 
and the serial number of the test the third di mension (40 x 8 x 12) 


А1) 
element by element; see Sec, 7.4). 

The. nested ГО loops terminating оп 
procedure of finding the maximum marks to be carried out for all tests 
and all subjects. In each case, the procedure consists in initializing 
the variable MAXM (maximum marks) to zero, 
the serial number of the student who obtain 
far. For each traverse of the loop, 
the current student, If MAXM is larger 
smaller, it is replaced by the m 
also replaced by the serial numbe 


statement 40 cause the 


Securing them. These are printed using statement 40 (once for each 
traverse of the outermost two loops), 


After all tests and subjects are 
loops occurs, the program stops, 

What happens if several stu 
reader might check to see if th 
take care of this possibility, 


Scanned and an exit out of these 


dents get the Same maximum Marks? The 
е program requires to be modified to 


7.4 INPUT AND OUTPUT OF ARRAYS : IMPLIED DO NOTATION 


7.4.1 Linear Arrays 


We have, so far, seen t 
output of linear arrays, The first is th 
operating on them element by element, e.g. 


READ (5,3) A(1), A(2), А(3), ACH), A(5), А(6) 
3 FORMAT (6 Е8,3) 


The second one is to use a DO loop for reading, eig. 


DO 2 I = 1,6 
2 READ (5,3) A(T) 
3 FORMAT (F8,3) 
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In this case, the READ statement is executed separately, once for 
each traverse of the loop. There has therefore to be one element per 
record; two or more elements cannot be stored on the same card. 
Similarly, while printing, each element will occupy a separate line. 

The DO loop can be implied in an input statement by using an 
implied DO list as the input list, e.g. 


READ (5,3) (ACI), I = 1, 6) 
3 FORMAT (6 F8.3) 


All the conventions and restrictions of the standard DO statement 
regarding the indexing parameters and the index variable apply in such 
a case. The above implied.DO is equivalent to naming the individual 
elements one by one as in the first example above. Use of the index 
increment permits selective input or output of some of the array 
elements. The following two statements are equivalent : 


READ (5,3) (А(1), І = 1, 6, 2) 
READ (5,3) ACD, AG), AG) 


Yet another way of referencing the entire array is indicated 
below: 


READ (5,3) A 
3 FORMAT (6 F8.3) 


When an array variable is referred to without 
subscripts in an input or output statement, input 
or output of all elements of the array is implied. 


there is a discrepancy between the number of variables in 
i i i i t or output statement and the 
the variable list in the inpu 
corresponding field specifiers in the FORMAT statement? The number of 
values transferred is determined by the input or output statement list 
and not by the FORMAT statement which is a nonexecutable statement. 
Consider the following statements 


What if 


WRITE (6,5) (A(T), I = 1,5) 
5 FORMAT (1Hb,6 F8.3) 
In this case, only 5 elements are transferred. Even if the FORMAT 
list specified (F8.3), instead of 6F8.3, the same thing would happen 
except that each element would be printed on a different line. 
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Chart 46 


Implied DO List 


Implied 02 range 
(simple list or implied DO list) 


Index variable 


Initial value 


Increment (optional) 


Simple list or 
implied DO list 


Examples: 


(K, б, (А (1), Iz], 10), 
(CA (I, J, K), Ded, 949. (à А 8), 


К=1, 4) 
(Nesting is Patres ilit и 


pio а depth of three) 
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Since an implied DO range can itself be a DO list, 
nesting of implied DO specifications is possible 
(upto a depth of three). 


In such a case, the inner variable goes through its entire range 
for each possible value of the other variable (i.e. the parentheses 
Parentheses have to be used whenever 


are opened innermost first). 
The DO range can contain variable names, 


needed, to avoid ambiguity. 
array element names and array names. The index variable occurs only as 


a subscript in the implied DO range in an input statement. It can 
occur also as an unsubscripted variable in an output statement. This 
it possible to print the subscript values also alongwith the 


makes 
In the next section, we shall see a few 


various elements of an array. 
examples of implied DO lists. 


7.4.2 Two- and Three-Dimensional Arrays 


Nesting of implied DO lists is useful for two- and three-dimensional 
arrays. The following WRITE statements are all equivalent for a 3 by 4 


array A. 
WRITE (6,3) А(1,1), А(2,1), А(3,1), А(1,2), А(2,2), 
1 А(3,2), А(1,3), А(2,3), А(3,3), AM,4), 


2 А(2,4), 403,4) 
WRITE (6,3)((A(I,J), I = 1,3), J = 1,4) 


WRITE (6,3)A 
3 FORMAT (1Hb,12 F6.3) 
The expression ((A(I,J), I = 1,3), J = 1,4) in the above example 
is an implied DO list. 


When two or more arrays are included in the domain 
of ап implied DO the corresponding elements also 
occur together, for each combination of subscript 


values. 


The following example illustrates this: 


READ (5,8) ((А(Т,4), B(I,J), І = 1,2), J = 1,2) is equivalent to 
READ (5,4) А(1,1), В(1,1), А(2,1), В(2,1), А(1,2), В(1,2), 


1 A(2,2), B(2,2) 


The domains of different indexing variables can be different, In the 
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following example, the domain of І is only X(I,J) while that of J is 
X(I,J: and YW) 


READ (5,4) ((X(I,J), I = 1,2), У(Ј), J = 1,2) is expanded as 
READ (5,4) X(1,1), X(2,1), YD, Х(1,2), Х(2,2), Y(2) 


Similarly, examples of implied DO specifications for three-dimensional 
arrays are: 


WRITE (6,6) (((W(I,J,K), I = 
READ (5,7) (((((A(I,J,K), I = 1,1), B(J,K)), J = 1,M), 
1 C(K), K = 1,N) 


кон 
= 
~ 
a 
= 
d 
~ 
~ 
Ш 
== 
со 
~ 


In its most general form the list of an input or output statement can 
have, mutually interspersed, variable names, array names (without 
subscripts), array elements and implied DO lists. For such a complex 
statement, it is important to ensure that the associated FORMAT 
statement tallies with it. This can be done by writing down an 
expanded list of variable elements implied, and checking that the 
field specifications in the FORMAT statement correspond exactly with 
it. (Hollerith constants, slashes and X's can of course, be inserted 
as desired.) 

It must be remembered that the variables in 
field specifications in the FORMAT statement are matched element by 
element from left to right (ignoring the field Separators: X's, 
slashes and Hollerith constants). Input or output of each element in 
the list is governed by the field specifier format. If the variable 
list is exhausted first and there are more unutilized field 
specifications, these are ignored, If, by the time the end of the 
FORMAT specification is reached, there are variables still in the 
list, the portion of the FORMAT specification on the right of the 
rightmost left parentheses is used repeatedly for assigning field 
specifications to variables, till the variable list is exhausted. If 
there are no parentheses, the entire FORMAT specification is used 


repeatealy. Each such section is taken to be a new record. Consider 
the statement 


the list and the 


READ 7, L,M,N,O,P,Q,R 
7 FORMAT (3 12, (F6.3)) 


The FORMAT statement above is equivalent (if the abo 
ve i 
used) to procedure is 


7 FORMAT (3 I2,F6. 3/F6. 3/F6. 3/F6. 3) 
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There would be an error if “һе parentheses around F6.3 are removed 
resulting in the statement: = 


7 FORMAT (3 I2, F6.3) 
This would be equivalent to 


7 FORMAT (3 12, F6.3/3 12) 


The whole of the portion within parentheses is rescanned, causinga 
mismatch between variable type and field specification. 

The implied DO facility for input and output is quite extensive 
but involves one of the most elaborate sets of rules and conventions 
The computational overheads involved are significant. It presents s" 
pitfalls by way of use of implied and nested DO loop conventions 
ification, data organisation and so еретін 


punctuation, FORMAT speci 
Utmost care is necessary to ensure that the statements written specify 


the intended operations and cause them to be performed correctly. It 
is therefore advisa omplex implied DO lists. 


ble to avoid c 
The following examples illustrate the use of subscripted 
variables and the operations tha 


t can be performed on them. 


Example 7-3 
ny) pairs of rows of a given matrix 


o check which üfa 
trix is 100 x 100 or less. The 


The size of the ma 
sk is as follows: 


It is required t 
are identical. 
program for this ta 


с PROGRAM ROWCHECK 
DIMENSION AM(100, 100) 
LOGICAL COMP 


с HEAD MATRIX SIZE 
READ (5,1) M,N 
4 FORMAT (2 13) 


с READ MATRIX 
READ (5,2) ((AN(I sd)» 1 = тм), J = 1,0) 
2 FORMAT (6 F10.3) 

c PRINT TITLE 


WRITE (6,3) 
OLLOWING bR 


3 FORMAT (33HbTHE DF OWSbAREbIDENTICAL) 
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C CHOOSE ROWS I1 AND I2 
М1 = М-1 
DO 5 11 = 1, M1 
I3 = 1141 
DO 5 12 = I3, M 


С COMPARE ELEMENT BY ELEMENT 
COMP = „TRUE. 
DO 4 J = 1,N 
HIF (AM(I1,J) .NE. AM(I2,J)) COMP = .FALSE. 
5 IF (COMP) WRITE(6,6) I1, I2 
6 FORMAT (1Hb, I3, 5HbANDb, I3) 
STOP 
END 


The DIMENSION statement provides a maximum of 10,000 locations 
for a 100 x 100 array AM. The actual Size is read as the value of 
variables M and N. The matrix itself is read in using the implied DO 


in the next READ statement. Note that an implied DO is necessary in 
this context. Using the statement 


READ (5,2) AM 


would cause all the 100 x 100 elements of A 
only M x N which are relevant). 
to a card, 

It is necessary to choose all possible pairs of rows (I1 and I2) 
for comparison. This is done by means of two nested DO loops using 
index variables I1 and I2 where I1 takes values 1 to M - 1 and for 
each value of I1, I2 takes values I1 *.1 to M. A third DO in the nest 
is used to compare both rows element by element, A logical variable 
COMP is initialised to „ТЕЏЕ, and turned to .FALSE, if any two 
corresponding elements in the rows being compared are unequal, If, 
after exit from the loop, COMP is still STRUE., then both POWS are 
identical, If so, the values of I1 and I2 are printed in the list of 
identical rows. Note that I3 in the earlier part of the program is a 
variable name and in statement 6 a field specification, The procedure 
is repeated N(N-1)/2 times. 

In the written form, this program leaves the list with the 
heading, "THE FOLLOWING ROWS ARE IDENTICAL", blank, if there are no 
such pairs, It would be preferable to print "NONE" in such a case. 


M to be read-(instead of 
The elements have to be organized six 
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This can be done quite easily and is left as an exercise for the 
reader, (HINT: Define another logical variable say, UNEQUAL 

Initialize it to .TRUE. Make it .FALSE. whenever any pair of rows 1з 
identical, i.e. COMP remains .TRUE. when a normal exit occurs out of 
the nest of loops. If UNEQUAL remains .TRUE. at the end, print 


"NONE". ) 


Example 7-4 


Let us now consider how this program can be modified to make a similar 
check with respect to columns, One way is to repeat the whole set of 
statements over again, with suitable changes in the DO index variables 

:and parentheses and to the subseripts in statement 4 so that columns 
are now compared. (What are these changes?) Alternatively, the entire 
matrix could be transposed (i.e. its rows and columns may be 
interchanged). Then the procedure could be repeated. Note that the 
values of M and N have to be interchanged and a title "The following 
colums are identical" has to be printed. 

For transposing 4 rectangular matrix, it is necessary to 
determine the larger of M and N ‘number of rows and columns) and set. 
this as the upper index parameter in the nested DO loops which effect 
their trapsposition. For each traverse of the loop, the values of 
A(I,J) and A(J,I) are interchanged. Thus, only entries above and 
excluding the diagonal line have to be covered. 

The modified program would be 


PROGRAM RCCHECK 


с 
DIMENSION АМ(100, 100) 
LOGICAL COMP 

с READ MATRIX SIZE 


READ (5,10) M,N 
10 FORMAT (2 13) 


с READ MATRIX 
READ (5,20)((AM(I,J, I = 1,M), J = 1,N) 
20 FORMAT (6 F10.3) 
с MAKE GO TO ASSIGNMENT Т 
ASSIGN 70 TO IBRAN 
с PRINT TITLE 


WRITE (6,30) 
30 FORMAT (33HDTHE DFOLLOWINGDROWSDAREDIDENTICAL ) 


О CONTINUE AFTER ROW CHECK 
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n ROW/COLUMN ChECK PROCEDURE STARTS 
til = iil 
35 bo 50 11 = 1; мл 
ІЗ = 11+1 
DO 50 12 = I3, à 


с COMPARE ELEMENT EY ELEMENT 
COmP =~. THUE. 
ГО 40 J = 1,5 


40 IF (AM(I1,J) àb. Ам(12,Ј)) COMP = FALSE. 
50 IF (COMP) WRITE (6,60)11,12 
60 FORMAT (186, I3, 5HbANDo,I3) 

с ROW/COLURN CrECk PROCEDURE ENDS 


GO TO IBHAN, (10,100) 


e MATRIX TRANSPOSITION STARTS 
e LET L Be EQUAL ТО THe LARGER OF м AND N 
70 L = MAXO(M,N) 
[^ THANSPOSE ELEMENTS 
L1 = L-1 
DO: 80-I-s 15^L1 
14 = ІМ 


DO 80 J = I4,L 
АМ1 = AM (I,J) 
Am(I,J) = Ам(Ј,1) 


80 AM(J,I) -Ам1 
C INTERCHANGE VALUES OF N AND M 
M1 =N 
N =M 
M = М1 
с МАКЕ GO TO ASSIGNMENT TO STOP AFTER COLUMNCHECK 


ASSIGN 100 TO IBRAN 


C PRINT TITLE FOR COLUMN CHECK 
WRITE (6,90) 
90 FORMAT (36HbTHE bFOLLOWING bCOLUMNS DARE DIDENTICAL) 
с DO COLUMN CHECK 
GO TO 35 


100 STOP 
END 
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Свет) 


Reod input / 


ШЕН; 


Row/column check 


columns 


Rows or 
columns 
checked 7 


Tronspose matrix 


[ Set for 


| columa check 


Fig. 7-! Flowchart of the program of Example 7-і 
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The row/column compare segment is used twice, once for row 
checking and once again for column checking. An assigned GO TO is used 
for ensuring that after row check, transposition is done and after 
column check the program stops, 

The flow chart of the program is given in Fig. 7-1. 


Example 7-5 


Let us write the operative segment of a program to compute the scalar 
product of two vectors of dimensionality less than 100, 
The scalar product of the two vectors V and W is 


еге n is tne dimensionality of the vectors, 
с PROGRAM SCALAR 
DIMENSION V(100), %(100) 


с READ DIMENSION OF VECTORS 
READ (5,1) N 
1 FORMAT (I3) 


e READ VECTORS 5 
READ (5,2) V, W 
2 FORMAT (2 F10.3) 


с FORM SCALAR PRODUCT 
SCALAR = 0. 
DO 3I= 1, N 
3 SCALAR = SCALAR + ҮЙІ) * w(I) 
WRITE (6,4) SCALAR 


4 FORMAT (1HO, F10.3) 
STOP 
END 
The program with comments is self-explanatory, 
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Example 71-6 


We are required to write a program for the ке оп of two 


matrices А and B of size 50 x 50 or less. 
The product matrix can be obtained using the relation 


n 
бі: > “ік 


The matrices may be rectangular, but of size (i x m) and (m x n), The 
product matrix is of size i x n, у 
с PROGRAM MATMULT 
DIMENSION A(50,50), B(50,50), C(50,50) 
C READ SIZES OF MATRICES 


READ (5,1) L, M, N 
FORMAT (312) 


ak 


с READ MATRICES 
READ (5,2) ((А(І,Ј), I=1,L), Ј=1,М) 
READ (5,2) ((В(1,Ј), I=1,M), Ј=1,й) 
FORMAT (5 F10.3) 


ғ 


с FORM PRODUCT MATRIX 
DO 5 I= 1,L 
WRITE (6,3) I 
FORMAT (12HbROWhNUMBERD, 12) 


3 
DO 5 J = 1,N 
с FORM ELEMENT C(I,J) 
C(I,J) = 
po 4 K = 1,М 
4 C(I,J) = C(1,22 + А(Т,К) * B(K,J) 
5 WRITE (6,6) J,C(1,9) 
6 FORMAT ({SHDCOLUMNDNUMBERD, 13,2Х, £1023) 
STOP 


END 
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The reader may, as an exercise, work out the format of the 


output. He may also examine why an implied DO list has not been used 
for the output. 


EXERCISES 


1. Make the necessary corrections 
element specifications, 

А(1,2,К) 

3(1, 2-0 ,K+3) 

C(A,K/2=3,4) 

M(3+K#2) 

L(23K-4,3) 

P(K#(=1)+3) 

Q(I,J,K,L) 


(if any) in the following array 


?. Which of the followin 
Correct them as necessary. 
(1) DIMENSION A(2*?X-l), B(101,3) 
(ii) REAL (I,J,K(50,10)) 
DIMENSION А,М,К(10,30) 
DOUBLE PRECISION J1 
EQUIVALENCE I,J1 
(iii) EQUIVALENCE (A(L), B(2),. с); 
1 (A(3), B(6)) 


& statements or sequences are invalid? 


3. Indicate the memory allocation caused by the following 
statements. 


(i) DIMENSION X(4), Y(20), 2(15) 


EQUIVALENCE (X(2), Ү(10), Z(5)) 
(ii) DIMENSION L(5,6), M(7,4) 


EQUIVALENCE (L(2,2), M(2,2)) 
(iii) DIMENSION A(10,5,6), B(20,14), c(100) 
EQUIVALENCE (A(10,1,1), B(20,10), c(20)) 


4, In a two-dimensional array AB of size M by N, write Sequences of 
statements which would 
(à) Replace all except diagonal elements by zeroes, 
(11) Assign all elements for Which at least 
even, the value of the last even subscrip 
(iii) For each column I, make all elements i 
take the value I9J, J being the row numb 


one subscript is 
t. 


n rows I, 2I,eto. 
er, 
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(iv) Make each element assume a value which represents the 
minimum distance of that element from the edges of the 
array. (All elements in the (I)th and (M-I)th rows are at a 
vertical distance of (I-1) from the top and bottom of the 


array respectively.) 


5, Write a program which causes each element in a two-dimensional 
square array to cyclically shift one place in the clockwise direction 


about the centre point. 


6. Write a program which causes each element in a square array to 
be replaced by the arithmetic mean of its 4 immediate neighbours 
(leaving the outermost rows and columns unchanged). For elements in 
the first and last rows and columns, nonexistent neighbours may be 


assumed to be zeroes. 


7. Write a program to find all sets of integers I,J,K (all less 
than N) such that т##2+7##2 = K**2. (Опе way is to store the squares 
of the first N natural numbers in an array (150) and find all pairs of 
elements whose sum is also an element of the array; try to think of a 


better method.) 
8. Write a program which rearranges the elements of a linear array 
in the ascending order. 


9. Write a program to list all prime numbers less than a given N. 


10, Correct t 
! 1,10), N 


1,14 

i = 1,16), I = 1,24) 

(iv) WRITE (6 30) QGK , , , 

iea Manr E A UU Cielo Soto BL IOS ЗЛИ 
1 сю, K = 1,4) 

te the values of sin X, cos X and tan X to 


ompu 1 2 1 
е of X, using series expansion. 


11. Write programs to C 
prog ny given valu 


six decimal places for 8 
12. Write a sequence of instructions which identify the subscripts of 
those elements of a three-dimensional array whose values are 
(i) even 
(ii) perfect squares 
(iii) the arithmetic m 
the outermost row 


six immediate neighbours (leaving 


eans of 
umns unchanged) 


s and col 
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13. A deck of data cards, all of which have been punched in the same 
format, has been thoroughly mixed up. Write a program which will read 
the cards and restore the original order in the data so read. It is 
known that only £,F,G and I formats are used and that when arranged in 
the proper sequence, the magnitude of the data in each subfield either 


increases or stays the same, from one card to the next, but never 
decreases. 


Сһарїег 8 


FUNCTION AND SUBROUTINE 
SUBPROGRAMS 


8.1 INTRODUCTION 


sequence of computations is required to 
a at various stages of execution. Writing 
f statements each time these computations 
us but also wastes memory space and 
read. It would, under these 


In most computer programs, а 
be performed on different dat 
the corresponding sequence O 
are called for is not only laborio 


makes the program difficult to 
circumstances, be convenient to define a program module or 


'subprogram' incorporating this sequence of computations and be able 
to refer to it whenever necessary. Such subprograms, if available, 
could also be used in different programs, by more than one user, The 
instrinsic functions referred to earlier (see Sec. 4.8) are an example 
of such usage, aS are subroutine and function subprograms which can be 
written by the user himself. 

Availability of sucha facility not only makes 
standard modules which can be used as and when required but 
to segment large programs intc manageable parts 
piled, tested and corrected independently. 

such subprograms, it is quite clear, should accept from the 
calling program one or more inputs and utilize them as values for the 
operands. They should also be able to supply to the calling program 
one or more outputs: values obtained as a result of computations 
performed on the inputs. Since such subprograms communicate with the 

Е they шау ог шау not perform any input or output 
calling program, In all other respects they should be self- 
operations on their own. 

dent on the main program. 
contained and not be deben 


it possible to 


implement 
also enables the user 


which can be written, com 


ts values of опе ог 

bprogram accep 
A FUNCTION E en the main program and returns 
more argument? t value of the function 


ап 
to it а single тезі SUBROUTINE subprogram, оп the 
mmunicate to the 


that it computes. 
an 
“Ж ка of more than Опе variable. 
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8.2 FUNCTION SUBPROGRAMS 


8.2.1 Function References 


The procedure for use of FUNCTION subprograms is similar to that of 
library functions explained in Sec. 4.8. A FUNCTION subprogram can be 
invoked by a function reference which refers to the name of the 
function, This is followed by the argument list, which is entered in 
parentheses, 

The arguments of the function, as mentioned above, can be 
constants, variables, array elements, expressions or even function 
names (the use of function names as arguments will be discussed later, 
in Sec. 8.4.2). Since recursion is not permitted, 
refer to itself as an argument. 


a function cannot 
The values of the arguments are 'supplied' to the 

function subprogram by the calling program through 

the argument list in the function reference, 


The value of the function computed із  'delivered' by the 


subprogram, In effect, it replaces the function name in the calling 
statement. 


Let the value of the function FCT 


(A,B,C) be 2.3 for the arguments 
X, Y and 4,9, The statement 


Z s FCT(X,Y,4.9) 
then becomes in effect 
1 ж 2.3 


So that the value of the function is assigned as the value of the 
variable Z. 


Alternatively, a FUNCTION refere 
argument list as above) in the place o 
Even here, the tnput parameters and th 
between the main program and the FUN 
manner, 


Let us consider the Statement 


nee can appear (along With the 
f a variable in an expression, 
e output value are transferred 


CTION subprogram іп the same 


I = COMB(J,K) 


where FUNCTION COMB computes the number of combinations possible 
from J dissimilar objects, taken K at a time; i.e. the value 
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J! 
K WJ -K)! 


The above statement assigns this value to I. If we had a function 
FACT(N) which calculates the factorial of N, we could write, instead 
of the above statement, the two statements 


J-K 
FACT(J)/(FACT(K) * FACT(L)) 


L 
I 


Each of the function references returns the corresponding function 
values to the main program, with the result that I is assigned the 
same value as befcre. Note that the statement L = (J-K) is not 
necessary because the arguments of a function сап be variables, 
constants or expressions. Writing FACT(J-K) is, therefore, permitted, 
Note that, in the above example, COMB and FACT nave to be type 


declared. 


Chart 47 


Function Reference 


Actual argument list 


| Actual argument 


(expression or 
array element or 
function reference) 


Function- name 


Examples : 
FCT (A,B, 2-3) 
SIN (X,Y(2, 30); 


SIN (B) 
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8.2.2 Structure of FUNCTION Subprograms 

We have already stressed that except for data transfer, a subprogram 
must be selfcontained in all respects. Thus, it would have the 


following structure 


(1) The title of the subprogram should include the list of dummy 
arguments and be of the form! 


Chart 48 
FUNCTION Subprogram Title 


Dummy argument list 


array or function name) 


| Type specification (optional | Ш argument (variable 


DLFUNCTION Ф (C) Gt 


Examples: 


-r- 
И 

1 -- 

| 
ДЕ 


E 


REAL МАХ (д, 8, С) 
INTEGER TOTAL (I, J,K,L) 
DOUBLE PRECISION SORT (X) 
SUM(A, X, SIN,D) 
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The type signifies the data type of the value computed by 
the function and can be omitted if the naming convention is 


adhered to. 


The arguments used in a FUNCTION title and in 
the body of the FUNCTION subprogram are 
called dummy or formal arguments. 


These are used merely to define the function, At the time 
of actual computation; they are substituted by the actual 
arguments supplied by the calling program in the function 
reference. A FUNCTION subprogram for caleulating the maximum 
of three arguments could have the title FUNCTION 
RMAX(A,B,C). A, B and C are the formal or dummy arguments. 
The function could be invoked by the reference RMAX(X,Y,6.) 
where X,Y and 6. are the actual arguments. 


The function value is calculated using the 
actual arguments, which take the place of the 
dummy parameters on 4 one-to-one basis. 


In this case, A is replaced by X, B by Y and C by 6. Only - 
variable names can be used as dummy parameters. 


An actual parameter can, as seen already, be 
a constant, a variable or an expression, 


To convert a FUNCTION subprogram into an independent 
program, the title has to be deleted and input statements 
added to assign values to each of the dummy argument 
variables, 

The completion of execution is signified by a RETURN 
statement (instead of a STOP which is used in the main 
program), There can be more than one RETURN statement. At 
this point control is returned to the main program, to the 
statement calling the FUNCTION. The value computed is passed 
on as the value of the function and replaces it in the 
calling statement. This is accomplished by an assignment 
statement of the following type, which occurs in tke 


subprogram. 5 


RMAX =... 
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Here, RMAX is the function name, Such a statement has to be 
executed before control is returned to the main program, 

(3) As in the main program, compietion of the text of the 
subprogram is signified by the END statement. 

(4) In addition to the variables mentioned in the title as 
arguments, a FUNCTION subprogram can define and use other 
variables, It may need and use type declaration and 
DIMENSION statements to cater to these variables, 

(5) A FUNCTION subprogram cannot be used to calculate the values 
of an ARRAY variable, An array сап, of course, be used as an 
argument in which case it has to be declared in a DIMENSION 
statement. Dummy variables can be used in the DIMENSION 
statements of a FUNCTION subprogram, There should be no 
disparity in the dimensions of arrays between the main 
program and the subprograms, If A and B are the real and 
dummy names of an array, A(I,J) and B(I,J) will not refer to 
the same element unles. the dimensions of A and B are the 
same (see Sec, 7.2.2). 


Example 8-1 


А program to illustrate the use of a FUNCTION subprogram FUNCTION 
F(X,Y,Z) in isolation is as follows: 
с PROGRAM FTEST 
READ (5,10) A,B,C 
10 FORMAT (3F10.3) 
VALUE = FUNCTION F(A,B,C) 
WRITE (6,15) VALUE 
15 FORMAT (1Xb, F10.3) 
STOP 
END 
FUNCTION Е(Х,Ү,2) 
DIMENSION... 


P= хз» 


Gb TURN 

END 
The purpose of PROGRAM FTEST is;to test the FUNCTION Subprogram, It, 
therefore, has to function as an adaptor for the latter: provide it 


inputs from outside and deliver its value to the user, 
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It reads three Parameters, which are to be used as the arguments 
of the function and delivers them to the Subprogram using the calling 
statement, The same statement also delivers to the main program the 
value of the function (as the variable VALUE). This is merely to be 
printed, after which the main program can Stop. This, however, is not 
the end of the program. The subprogram also forms part of it, and 
follows, It might have its own DIMENSION and TYPE statements covering 
any arrays and variables that it might generate and use, Tt has to 
have at least one assignment statement which assigns a value to the 
variable F. The end of processing із signified by a RETURN statement 
(there can be more than one) and the end of the text by the END 


statement, 


Example 8-2 
Given a FUNCTION subprogram, change it into an independent program, 
The steps to be followed for effecting this are: 


(1) Change the title 
(2) Insert input statements to assign values to the :rguments. 
(3) Replace variables which might occur as subscripts in the 


DIMENSION statement by constants. 
(4) Insert an output statement to print the value of the 


function computed. 
(5) Substitute RETURN by STOP, 


The FUNCTION subprogram The program then becomes 
is of the form 


DIMENSION..: c PROGRAM F 
FUNCTION F(A,B,C) READ (5,10) A,B,C, 
DIMENSlON... #2. 

"TS Елі: 

Bas 141 ИВТТЕ (5,15) Е 
БЕЗҮҮ STOP 

END END 


Similarly, it is possible for an independent program to be rewritten 
аз a FUNCTION subroutine in some cases, The reader may, as an 
exercise, try to work this conversion in a general case, 
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Example 8-3 
Write a FUNCTION subprogram to form the scalar product of two vectors. 


FUNCTION SCALAR (V1, V2, N) 

Vi AND V2 ARE THE VECTORS 

N IS THE SIZE OF EACH VECTOR 

с THESE ARE DUMMY VARIABLES 
DIMENSION V1(N), V2(N) 


aa 


SCALAR = 0 
DO 11 = 1,N 
1 SCALAR = SCALAR + V1(I) * 12(1) 
RETURN 
END 


This із an adaptation of the program of Example 7-5 in the form 
of a FUNCTION subprogram. 


8.3 SUBROUTINE SUBPROGRAMS 


A FUNCTION subprogram, it has been seen, can perform a series of 
computations on one or more arguments and deliver to the main program 
a single value as result. Where it is necessary to deliver values of 


more than one parameter, a SUBROUTINE subprogram (or SUBROUTINE) can 
be used. 


8.3.1 Subroutine Calls 


The parameter list of a SUBROUTINE contains both input and output 
parameters, The input parameters can be either variables or constants 
while output parameters have to be only variables, whose values аге 
made available to the main program. The input and output parameters 
can be interspersed and can be distinguished by reference to the body 
of the subprogram, It is even possible for the same variable to be 
used as an input and output parameter, 


A SUBROUTINE can be called using a CALL statement of the 
following type 


CALL SR(I1,12,..IN, 01, 02,..0M) 


A single CALL statement assigns values to all the output 
parameters 01 to OM of the SUBROUTINE and is, therefore, equivalent to 
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a series of function calls, It sets up a correspondence between each 


dummy parameter and the corresponding actual parameter. This makes 
possible a two-way transfer of information between the calling program 


and the called subroutine, 


Chart 49 
The Subroutine CALL Statement 


Output parameter 
(variable or array 
or array element) 


Input parameter Parameter list 


(expression or array 
or array element) 


Subroutine name 


Examples: 
CALL X 
CALL P3(MASS, P(24), 4H1b=b) 


CALL CALCUL (4%X+2) 


ment has to occur by itself and cannot 


A subroutine CALL state 
assignment statement. It can, of course, 


form part of an expression or 
form part of a logical IF, e.& 


IF (А .EQ. 0) CALL SQUARE (A,B,Q,R) 
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8.3.2 Structure of SUBROUTINE Subprograms 


Like FUNCTION subprograus, SUBROUTINE subprograms have also to be 
selfcontained, except for data transfer, The structure of a subroutine 
is broadly similar to that of a FUNCTION, except for the following: 


(1) The title of the SUBROUTINE is defined as follows: 


Chart 50 
The SUBROUTINE Statement 


Dummy parameter list 
(optional) 


Dummy input or output 
parameter 


(variable or array) 


Subroutine name 


[SUBROUTINE|(S) (10, (a) 


= m 


Examples: 


SUBROUTINE M 
SUBROUTINE CALCUL 
SUBROUTINE PÉ"UMASS; Ху YZ) 


Even here, опе uses dummy parameters, The calling 
statement in the main program uses the actual variables 
(and/or constants, from the input list). 
correspondence is, of course, 


and the dummy list elements, 


One-to-one 
preserved between the actual 


(2) 


(3) 


(4) 
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As mentioned already, the input and output variables in 
the list cannot be distinguished except by their usage in 
the text of the SUBROUTINE. The input variables occur as 
operands in the right hand side of arithmetic assignment 
statements while the output variables occur on the left hand 
side, since values have to be assigned to them. Even this is 
not entirely foolproof, since input variables may be 
assigned new values and output variables may be used as 
operands within the SUBROUTINE. Also, the same variable can 
adso be used аз an input as well as an output parameter. 

If subroutine S(U1, U2, ..., UM, V1, V2, ... VN) is 
called by the statement CALL 5(А1, A2, ..., AM, B1, B2, ..., 
BN), the actual parameters A1 to AM are used in place of the 
names of the dummy parameters U1 to UM of the input list.. 
It is as if the following statements occurred before control 
is transferred to the SUBROUTINE 


E. 


UM = АМ 


Using these values, the subroutine calculates values of the 
dummy output parameters V1 to VN in the same manner as a 
regular program. Each of these must therefore occur at least 
once as the left hand side of an assignment statement. 

Since the SUBROUTINE delivers values of more than one 
parameter to the main program, these could be of different 
data types. There is thus no need for a type declaration for 
the SUBROUTINE name. Data types of individual variables and 
arrays used in the subroutine (input and output variables 
and others) ean be declared as usual, wherever the naming 
convention is not followed. There should be no disparity 
regarding data type declarations between the main program 
and the subprogram. 

Completion of computation is signified by a RETURN statement 
which transfers control to the main program. There can be 
more than one RETURN statement, depending on the 
organization of the SUBROUTINE. 

Array variables can occur in the input and output lists. 
The COMMON statement is useful where arrays are required 
(see Sec, 8,5). Where an array is part of the parameter 
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(5) 


list, a DIMENSION statement must occur to Specify the array 
Size, It might have a fixed size, e.g. ARRAY (100,100) or 
have variable subseripts, e.g. ARRAY(I,J) where I and J are 
part of the input list. There should be no disparity in 
array dimensions between the main program and the 
subprograms. Otherwise, if A and B are the real and dummy 
names of the same array, A(M,N) and B(M,N) would refer to 
different elements in the main program and the subprogram 
(see Sec, 7.2.2). 

Before control actually passes on to the calling program, 
the values of the dummy (output) parameters have to be 
assigned to the actual variables, as if the following 
arithmetic assignment statements are executed: 


B1 
B2 


v1 
v2 


BN = VN 


This is automatically done since, as in the case of the 
input parameters, the addresses of the output parameters are 
available to the subroutine; each reference to a dummy 
output parameter results actually in a reference to the 


memory location where the corresponding actual parameter is 
stored, 


Example 8-4 


The following program illustrates how 
be used in isolation, 


с 


а subroutine S(A,B,C,X,Y,Z) сап 


PROGRAM STEST 
READ(5,5) A1, B1, C1 
5 FORMAT ... 
CALL S(A1,B1,C1,X1,Y1,21) 
WRITE (6,10) X1, Y1, 71 
10 FORMAT ... 
STOP 
END 
SUBROUTINE S(A,B,C,X,Y,Z) 
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DIMENSION... 


Since it is very similar to the program in Example 8-1, no 
explanation is given. 


Example 8-5 


Conversion of a subroutine into an equivalent program is also 
straightforward, Let us attempt this for the above SUBROUTINE. 


The program becomes: 


с PROGRAM STEST 
DIMENSION ... 
READ (5,20) A,B,C 


X 
Y 
Z 


WRITE (6,30) X,Y,Z 
STOP 
END 


no explanation is necessary. The reader might баке any 


Again 
à pt it into a SUBROUTINE. 


Standard program and conve 


Example 8-6 


Write a subroutine to transpose a given matrix: 


SUBROUTINE TRANSP (AM,M,N) 
с А IS THE MATRIX ТО BE TRANSPOSED 
THE TRANSPOSED MATRIX IS RETURNED AS A ITSELF 
M * N IS THE SIZE OF THE MATRIX МАХ 100 * 100 


aa 
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с М AND N INTERCHANGE VALUES DURING TRANSPOSITION 
DIMENSION AM(100, 100) 


Lh = M 
IF (N GT. M) Ls М 
с TRANSPOSE MATRIX 
L1 = L-1 
DO 8 I = 1,11 
I1 = 1+1 
D0 dò J = I1,L 
AM1 = AM(I,J) 
AM(I,J) = AM(J,I) 
8 AM(J,I) = A11 
M =N 
N =M 
M =M 
RETURN 
END 


This is an adaptation of a part of PROGRAM RCHECK of Example 7-4, 
Since A is a rectangular (not square) matrix, we do not know whether M 
or N is larger, If this were known we could have generalized the 
program to use AM(M,M) in the DIMENSION statement, 

A, M and N form the parameter list for the subroutine, These form 
the input as well as output parameters since the transposed matrix is 
returned in the same array A; the row and column sizes are also 
supplied as values of the input variables, Specification of a COMMON 


statement in this subprogram would have eliminated the need for a 
parameter list, 


Example 8-7 


Let us now try and write a subroutine for: the 
which checks for identity of any two rows, We shall require the 
program to deliver a list of identical pairs of rows in a two- 
dimensional array, Since the output is an array, it cannot be a 
FUNCTION subprogram, 


problem of Example 7-3 


SUBROUTINE RCHECK (A,B,M,N,J,J1) 
DIMENSION A( 100,100) 
LOGICAL COMP 
INTEGER B(200,2) 
с А IS THE INPUT MATRIX, М % N ITS SIZE 
с В IS THE LIST OF IDENTICAL PAIRS OF ROWS 
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с J IS THE МАХ. NUMBER OF IDENTICAL PAIRS EXPECTED 
C J1 IS THE ACTUAL NUMBER OF IDENTICAL PAIRS 
с INITIALIZE INDEX FOR ROW NUMBER ОҒ.В. 


К=0 


с CHOOSE ALL POSSIBLE PAIRS OF ROWS 
M1 = M-1 
1 20311-1, М1 
ІЗ = 11+1 
ро 3 І2 = 13,М 


с COMPARE ELEMENT BY ELEMENT 
COMP = .TRUE. 
po2L=1,N 
2 IF(A(I1,L) .NE. A(I2,L)) COMP = .FALSE. 


с CHECK IF ROWS ARE IDENTICAL 


IF (.NOT. COMP) GO TO 3 

С IF IDENTICAL, ENTER INTO В 
Kek#1 
B(K,1) = 11 
B(K,2) = 12 

с CHECK IF В FULL 
IF (К „СЕ. J) GO TO 4 

3 CONTINUE 


с RETURN К, МО. OF IDENTICAL PAIRS TO MAIN PROGR. 
4 J1 =K 
RETURN 
END 


The input parameters are A, the matrix, M апа N,the number of 
rows and columns, and J,the maximum number of row pairs that are 
expected to be identical, If this number is exceedea, the subroutine 
does not search further and returns control. B is the output matrix, 
size J x 2, which returns to the main program the list of row numbers 
of pairs of identical rows, The subroutine also returns the actual 
number of identical pairs. 

This subroutine is closely parallel to the program of Example 7-3 
except for the following changes: 


(1) Instead of printing the list of identical rows, it returns 
these to the main program, via the matrix B, 
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(2) It keeps a count of the number K of identical rows found and 


returns to the main program if this exceeds J; this count is 
returned to the main program as J1. 


Example 8-8 


We сап now try and rewrite the program of Example 7-3 using the above 
subroutines, 


с PROGRAM RCCH2 
с AM IS THE MATRIX, БМ THE LIST OF IDENTICAL 
с ROW COLUMN PAIRS 


DIMENSION AM(100,100), BM(200 ,2) 


с READ MATRIX SIZE M % N AND МАХ, NO. OF IDENTICAL 
с PAIRS EXPECTED 


READ (5,1) M, N, K 
1 FORMAT (313) 


с READ MATRIX 
READ (5,2) (CAM(I,J), I=1,M),J=1,N) 


го 


FORMAT (6 F10.3) 
с CHECK FOR IDENTICAL PAIRS ОЁ ROWS 
CALL RCHECK (AM,BM,M,N,K,JI) 
с PRINT TITLE AND PAIRS ОР ROWS 
WRITE(6,3) 
FORMAT (ABHDTHE FOLLOWING BIS bADLISTbOFbIDENTICALbROWbPAIRS) 
WRITE(6,4) ((вм(1,2), 4-1,2), 1-1,41) 
FORMAT (I3,5HbANDb, I3) 
с TRANSPOSE MATRIX AND CHECK COLUMNS 
CALL TRANSP (AM,M,N) 
с CHECK FOR IDENTICAL COLUMN PAIRS 
CALL RCHECK (AM,BM,M,N,K,J1) 
с PRINT TITLE AND PAIRS OF COLUMNS 
WRITE(6,5) 
FORMAT (ЗТНЪТНЕ bFOLLOWINGDISbAbLISTbOFDIDENTICALD, 
1 13HbCOLUMN bPAIRSb ) 
WRITE (6,6)((BM(I,J), J=1,2), 1-1,41) 
6 FORMAT (1Hb,I3,HX,13) 
STOP 
END 


өз 


= 


152) 
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For this to run, the subroutines RCHECK and TRANSD should be 
appended to it. 


8.4 SUBPROGRAMS CALLING EACH OTHER 
8.4.1 Recursive and Cyclic References 


We have already seen that a main program could consist of a number of 
subprograms which it calls and that it can exchange information with 
them. It is possible for the subprograms to call each other and 
exchange information in the same manner, ‘Recursion (a subprogram 
calling itself) is not permitted, A pitfall to avoid, of course, is 
indirect recursion: a cyclic situation where A calls B, B calls C and 
C calls A; can never terminate. The following is allowed. А main 
program for tabulating trigonometric functions calls оп subprograms 
for computing SIN, COS and TAN. COS and TAN functions may call on the 
SIN function which, say, is the only function explicitly implemented, 


as also on the SQRT function. 


8.4.2 Use of FUNCTION Names as Parameters 


In the earlier sections, we have seen that the facility of using dummy 

define a FUNCTION or SUBROUTINE is available. This 
nerality, since the subprogram can be invoked using any 
It would be convenient to extend a similar 


parameters to 
provides for ge 
other actual parameters. 


facility to function names as well, 
Let us define for instance a FUNCTION VAR(A,B,C,FUN). This 


calculates, say, the variance of an undefined function FUN(X) for 
values of X ranging from A to В at intervals of C. Note: X need not be 
mentioned as an argument of the FUNCTION. 

Let us also define functions SIN(X), 
following statements occurring in the main program 


COS(X), ete. Consider the 


U 
V 


VAR(A1,B1,C1,COS) 
VAR(A2,B2,C2,SIN) 


Just as the dummy variables À, B, and C are substituted by the 
actual variables A1 B1 and C1, the dummy function name FUN is 
substituted by the actual function name COS and U is assigned the 
value which is the variance of COS(X) for values ranging from A1 to B1 
at intervals of C1, The second statement, similarly, assigns the, 
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variance of -SIN(X) to V fora different range and a different 
interval. 


The actual variables in this illustration are A1, B1 and C1. 
Only these will be assigned values before the function VAR is called, 
When the reference VAR(A1,B1,C1,COS) occurs in the calling program, 


there is по way for the compiler to realise that COS is а function 
name and not a variable name, 


Chart 51 
The EXTERNAL Statement 


[ Subprogram name list 


Subprogram Name 


EXTERNAL | (и) 


Examples: 


EXTERNAL SIN 
EXTERNAL COS, VARIANCE 
EXTERNAL MINIMAX, V, ARCTAN 


The EXTERNAL statement lists subprogram names 


which are used as actual parameters for other 
subprograms, 


This enables the compiler to dea 


1 with these appropriately, 
The EXTERNAL 


Statement must be included in the program which 
ing subprogram names as actual parameters, It must 


occur before the first executable Statement of the program, 
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Example 8-9 


A subprogram is required which calculates the root mean square (RMS) 
value for any specified function, the lower and upper limits and 
increment for summation being specified, 

The subprogram is written with dummy parameters LL, UL and INC 
for the lower limit, upper limit and increment for summation, The 
dummy parameter name FN is specified in the place of the function 
name, The RMS value for this dummy function is calculated by the 
subprogram, The funetion subprogram is invoked using the actual 
parameters А, B and C and the library function name SIN. The variable 
S is thus assigned the RMS value of the funotion SIN in the interval A 
to B, the increment being C. The EXTERNAL statement includes the names 


of all functions so utilized, 


с PROGRAM EXTERNAL 
EXTERNAL SIN, COS, TAN 


S = RMS (A,B,C,SIN) 


ооо 


5ТОР 

END 

FUNCTION RMS (LL, UL, INC, FN) 
REAL INC, MS,LL,I 

І = 0. 


= X + INC 
= I+ 1. 
IF(X .LE, UL) GOTO 2 
MS = MS/I 
RMS = SQRT (MS) 
RETURN 
END 


84,3; Exchange of Information 
ormation exchange takes place between two 


So far, we have seen that inf 
okes the other, The values of the actual 


program modules when one inv 
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arguments have to be made available to the called subprogram. This 
will enable it to calculate the values of the output parameter(s). 
This can be.done in two ways. 


(1) Call by value: When the actual parameter is a constant or an 
expression, the value of the parameter is supplied. 
(2) Call by name: When the actual parameter is an array, only 


its name is supplied to the Subprogram (this is simpler and 
faster). 


Outputs of a subroutine are Similarly transferred to the calling 
program either by name or by value. 


8.5 THE COMMON STATEMENT 


Exchange of information between SUBROUTINE and FUNCTION subprograms 
and the main program takes place, as we have Seen, through parameter 
lists. Each reference to a dummy parameter (call by name) causes the 
System to first obtain the address where the corresponding actual 
paraneter is stored and, in the next Step, to access the actual 
parameter. This wastage of time (due to such indirect referencing) may 
not be very significant where the parameter lists are small but in the 
case of large arrays, this overhead could be considerable. 

It would be advantageous to assign the same (or 'common') memory 
location to a dummy parameter in a called subprogram and the 
corresponding actual parameter in the calling program. 


The COMMON statement permits different program 
modules to communicate with each other through 
memory areas accessible in common to them. 


8.5.1 Unlabelled COMMON 


The COMMON statement is of the following form: 


COMMON (X, Y, A, B) 


X, Y, A and B may be variables of arrays. 


E 
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Chart 52 


The Unlabelled COMMON Statement 


Common element 
(variable or array) 


Common list 


[COMMON 


Examples: 
COMMON K,X,C(3) 
COMMON MATRIX 


This statement assigns space for the variables and arrays named in the 
COMMON list ina special area commonly available for all programs, The 
statement must occur in all the program modules which require access 
to the common area in memory. The COMMON list must contain the 
variable and array names in the same order in each module; Dummy 
variable names are used in the subprograms and names of actual 
variables in the main program, as in the case of parameter lists for 


SUBROUTINE and FUNCTION subprograms. Because the same memory location 


is assigned, a dummy variable and the corresponding actual variable 
, 


аге treated as the same. , 
Where arrays occur in the COMMON list, their size must be 


specified either in a DIMENSION statement or in the COMMON statement 
itself but not in both. The practice followed in different modules can 


be different. 
Space in the COMMON ar 


variables and arrays in the 
the list. Consider the fo 


ea or block of memory is assigned to the 
list in the order in which they occur in 
llowing statements, In the main program 
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DIMENSION X(50), ¥(50,50) 
COMMON X,Y,L,T 


and in the subprogram 
COMMON A(50), B(50,50), INT, К1 


In such a case, the array X is taken to be the same as A and Y to be 
the same as В. Similarly, variables L and INT are the same; soareT 
and R1, 

The COMMON area will consist of 50 + 50 * 50 + 1 + 1 or 2552. 
locations (assuming X, Y, L and T are not complex or double precision 
variables), The first 50 locations in this block are reserved for 
array X(or A), the next 2500 for array Y(or B), one location for the 
variable L (or INT) and one for T (or R1). 

In a situation where a subprogram is called a number of times and 
has to operate on different variables each time, communication by 
parameter list would be convenient. If the same set of variables have 
to be operated upon each time, then a COMMON statement is adequate, 

Information exchange between program modules сап take place by a 
-COMMON statement for some variables and by а parameter list for 


others. A given variable may be inoluded in the COMMON list or in the 
parameter list but not in both, 


Example 8-10 


The program of Example 8-8 can be written using COMMON statements, We 
could then remove the parameter lists from the subroutine names and 
CALL statements, It must, however, be remembered that the same order 
must be maintained in the variable lists in all the modules of thea 
program and that while actual parameters are used in the COMMON list 


of the calling module, dummy parameters should be used in the called 
subprograms, 


8.5.2 Labelled COMMON 


In a program consisting of a large number of modules, 

that they all require access to each of the variabl 
accommodated in the COMMON block, It is likel 
can be partitioned into a number of sublists: one containing all the 
variables and arrays required by all the subprograms, one by one group 
of modules, another by a second group and so on, If so, the COMMON 


it is unlikely 
es and arrays 
y that the COMMON list 
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similarly be partitioned so that each block or subarea can be 


area can 
ish them from one another; each 


used by one set of modules, To distingu 


block can also be given a label. 
This can be achieved by using a labelled COMMON statement. | This 


is of the following form: 


Chart 53 
The Labelled COMMON Statement 


Common block list 
(list of variables and array names 


Block label (name) or empty 


Block label for first block 
(optional) 


Examples : 


COMMON X, Y(2),K 
COMMON /C, D(3)/ BLOCK 17K, 2:267 

COMMON /X, K(4)/ BLOCK N/P, Q7 

COMMON /BP, X (100)/K23/M, N, S (5) /MANK, K4, X7 
COMMON 7 BLOCK1 „А, B(3)/ BLOCK 2 / ALPHA, X, Y(10)/ 


Each labelled COMMON bl 
subprograms in which it occu 
usually occurs first) if any, 


ock is accessible only to the group of 
rs, The unlabelled COMMON block (which 
has to occur in all subprograms. Te 1s 
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accessible to all of them. A program module need include only those 
lists which contain variables referenced by the module and the 
associated labels, 

Consider-the following labelled COMMON statements 


Main Program: COMMON A,B,C/B1/D,E,F/B3/I,J,K 
Subprogram 1: COMMON P,Q,R/B1/U,V,W 

Subprogram 2: COMMON WT,HT,Z/B2/X,LAMBDA 
Subprogram 3: COMMON P,Q,K7B2/R2,INT/B3/K1,K2,K3 


Table 68-1 shows the organization of the COMMON blocks in such a 
Situation. 


Table 8-1 Organization of COMMON Blocks 
ee ________- 


Block Label Main Prog. Subprog. 1  Subprog. 2 Subprog. 3 
л = onguliB so 


Unlabelled A Р WT P 

B Q HT Q 

© R РА R 
eee 
B1 D U 

E V 

F W 
---д---- "v" 
B2 X R2 

LAMBDA INT 

se 
B3 I K1 

J K2 

K K3 


The unlabelled block is used by all modules, B1 is used by the 
main program and subprogram 1, В2 by subprograms 2 and 3; and B3 by 
the main program and subprogram 3. The variable names used in the 
different subprograms can be and are different, even though they refer 
to the same memory locations. Since none of the names have any 
subscripts, 1% is not possible to say which of them might be arrays. 
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The DIMENSION or TYPE statements in the modules would contain this 
information. 5 Р 

Two ог more COMMON blocks. in the statement might bear the same 
label. All blocks bearing the same label are concatenated in the 
sequence in which they occur and are treated as a single block. 
Several unlabelled blocks might similarly exist and are also 
concatenated and treated as a single unlabelled COMMON block. 

Also, there can be more than one labelled COMMON statements in 
the same module. The effect is cumulative. For instance, the labelled 
COMMON statement for subprogram 3 could have been split into the 
following statements: 


COMMON P,Q, R/B2/R2/B3/K1,K2 
COMMON B2/INT/B3/K3 


Lists appearing in the above two statements for blocks B2 and B3 
are concatenated blockwise. 

The advantage available with the labelled COMMON statement is 
obvious. In the above example, consider the addition of subprogram 4 
to the program. Let us say this program needs to share memory blocks 
only with the main program (unlabelled) and with subprogram 3 (block 
BH). With the addition of this subprogram, one needs to modify only 
the COMMON statement of subprogram 3 (insert an additional statement 
СОММОМ/ВШ/ (list) and ensure that a similar statement appears in 
subprogram 4 also. 

In the case of unlabelled COMMON, the.COMMON statements in all 
modules have to correspond exactly. If we wish to insert ап 
additional subprogram which might need to share memory with some of 
the other subprograms, we would need to modify the COMMON 
statement in all the modules. 

Let us now compare the EQUIVALENCE arid COMMON statements. Both 
cause the allocation of a single memory location to two or more 
variable names. There are, however, important differences. All the 
variable names assigned to a single location by an EQUIVALENCE 
statement occur in the same program module. Either these names refer 
to the same variable or different variables. If there are different 
variables, we should ensure that there are no contradictions or 
conflicts, i.e. the value of the ith variable is no longer required by 
the time the (i+1)th variable is assigned its value. 

The variable names that share a single location by virtue of the 
COMMON statement occur in different modules of the program. 
Specifically, these are dummy and actual names of the same variable, 
The COMMON statement enables the exchange of information between 
different program modules. 
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For obvious reasons, two variables occurring in a COMMON list 
cannot be equivalenced, When a variable located in a COMMON area is 
made equivalent to another variable not occurring in the COMMON list, 
it will be assigned space in the COMMON area, When a 'COMMON' array is 
made to overlap with а non-COMMON array, by means of an EQUIVALENCE 
statement, it might be necessary to provide extra Space to 
accommodate the non-overlapped part of the latter, Two types of 
situations can arise: 


e.g. COMMON  A(10) or COMMON A(10) 
DIMENSION В(15) DIMENSION B(15) 
EQUIVALENCE (A(1), B(1)) EQUIVALENCE (A(1), B(6)) 


The former is allowed, because it extends the COMMON space. 
forward, after A(10) but the latter is not allowed sirice it tries to 
extend the COMMON space in the reverse direction, 


8,6 OTHER SPECIAL SUBPROGRAMS 
8.6,1 The STATEMENT FUNCTION Statement 


The FUNCTION and SUBROUTINE Subprograms are useful when 


(1) a fairly complex sequence of computations is required to be 
performed repeatedly in a program or 


(2) it is likely to be used by more than one program, 


There are also programs where comparatively simple sequences of 
computations require to be performed repeatedly. In such cases, one 
can use the STATEMENT FUNCTION statement (or simply, STATEMENT 
FUNCTION) which is defined using a statement of the form 


RMEAN (A,B) = (A +.B)/2 


The expression on the right hand side has to use all the 
arguments in the list on the left hand side, The expression should net 
contain any subscripted variables but it can refer to Standard library 
functions, It cannot refer to itself or to any other funetion that 
refers to it, The function name should not be the same as that of any 
of the standard library functions or any other Subprogram names 
utilized in the program, Type declaration is necessary if the name 
does not conform to the naming convention, The statement definitions 
Bust precede the first executable statements in the program, 
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In case the expression contains any variables other than the 
arguments of the function, the current values of tnese (at the time 
the function is invoked) are used in the computation, 


Chart 54 
The STATEMENT FUNCTION Statement 


Dummy argument 1151 | 
op uer T 


Dummy argument 


(variable) 


Statement function name 


Expression 


Examples: 
DIF(A,B)2A-B 
AREA(DIA) = 3:1416 Ж DIA ЖОТА /4. 


eferred to exactly like a FUNCTION 
hmetic replacement statement or as 
The actual arguments used in the 
bles, constants or expressions) | 
definition. 


A STATEMENT FUNCTION can be г 
subprogram; it can occur in an arit 
part of an arithmetic expression, 
function reference (these can be varia 
replace the dummy variables used in the 
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Example 8-11 


A cylindrical jar (whose external and internal dimensions and density 
of material are known) contains a number of cylindrical objects (of 
known dimensions and density) and is filled with a liquid whose 
density is known. The mass of the total system is to be computed. The 
objects are denser than the liquid. 

The diameters (ID, OD, D1, D2), heights (IH, OH, H1, H2) and 
densities (RHOJ, RHOL, RHO1, RHO2) are read, Two STATEMENT FUNCTIONS 
are defined to compute the volume and mass of the cylindrical objects, 
The mass of the jar (RJARM) is computed knowing the inner and outer 
dimensions and the density. Caleulation о? the masses о? the 
cylindrical objects (ОТНЕМ) is straightforward, The volume of the 
liquid is the internal volume of the jar minus the total volume of the 
objects. Using this value of volume, the mass of the liquid 1з 
computed. The total mass is given by the sum of the individual masses, 


© PROGRAM VOLUME 

REAL IH, ID, LIQM 

VOLUME (H,D) = 3.14159 + p *& p 9 g 

RMASS (H,D,RHO) = VOLUME (H,D) * RHO 

READ (5,20)1H,0H, ID ,OD ,H1,D1.H2,D2 НОЈ 
20 FORMAT (3 F10.3) 

RJARM = (VOLUME (OH,OD) ~ VOLUME (IH,ID)) * RHOJ 

OTHERM = RMASS (H1,D1,RHO1) + RMASS (H2,D2,RHO2) 

LIQM = (VOLUME (IH,ID) -VOLUME (H1,D1) 

1 -VOLUME (H2,D2)) * RHOL 

TOTALM = RJARM + OTHERM + 110М 

WRITE (6,30) TOTALM 
30 FORMAT (1HO.F10.3) 

STOP 

END 


»RHO1,RHO2,RHOL 


8.6.2 Library Subroutines 


As mentioned earlier, a number of standard functions are supplied 
along with the system and can be invoked as required, In addition, a 
variety of standard subroutines are available at each installation and 
can be used as subprograms. (Information about them is usually 
available with the installation.) Before using them, the programmer 
should be familiar with the parameter lists and memory requirements as 
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well as the specific functions performed by each subroutine. The text 
of such subroutines has, in general, to be incorporated into the body 
of the user's program. In this sense, these are like user implemented 
subroutines, except for the fact that they are readily available. 


86.3 Block Data Subprogram 


We have seen already that the DATA statement can be used to initialize 
the values of a number of variables. The BLOCK DATA facility permits 
this to be done in a separate subprogram entitled BLOCK DATA. 

This subprogram has no parameter list. It communicates with 
other modules through COMMON blocks. In other words, it can 
initialise portions (or all) of the COMMON block(s). The type, 
DIMENSION, COMMON and EQUIVALENCE statements must appear as for any 
normal subprogram. Comments can also occur. There has to be at least 
one DATA statement and an END statement as for any other program. No 
other statement is permitted in a BLOCK DATA subprogram. 

If any variable in a labelled COMMON block is initialized using a 
DATA statement in the BLOCK DATA subprogram, all variables in that 
block have to be defined using DIMENSION, EQUIVALENCE and type 
declaration statements in the subprogram. 

Subject to the above, variables from several labelled COMMON 
blocks сап be initialized in a BLOCK DATA subprogram. 


8.7 SUMMARY 


ent means for modularizing a program, 
FUNCTION subprograms, SUBROUTINE 
Their features are summarized in 


We have discussed four differ 
viz., Arithmetic STATEMENT FUNCTIONS, 
subprograms and intrinsic FUNCTIONS. 


Table 8-2. 
The following important rules must be observed while using 


FUNCTION and SUBROUTINE subprograms. 


(1) The name of the subprogram must not be used in any non- 
executable statement (except the TYPE declaration statement 
in case of FUNCTION subprograms). 

(2) The names of the dummy arguments used in the subprogram must 
not appear in any EQUIVALENCE, COMMON or DATA statements 
used within the subprogram. 
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(3) The subprogrem should not contain any BLOCK DATA, 
SUbXOUTINE, FUNCTION or any other statement that refer 
directly or indirectly to the subprogram being defined, 


FUNCTION and SUBROUTINE subprograms do not, it can be seen, add 
anything by way of computational capability to the armoury of the 
programmer; but they do permit the segmentation of large programs into 
small and manageable modules, There are several advantages of such a 
segmentation, It is easy to write and check small program modules, 
Understanding the program flow becomes difficult in the case of large 
unsegmented programs; splitting a large program into small functional 
modules adds to the readability of the program. Further, such modules 
сап be used in other programs, 

‘tne use of subprograms involves a few overheads. During program 
writing, it is necessary to keep track of real and dummy variables, 


data types, COMMON statements, information exchange between modules, 


etc. 
The process of transferring control to the subprogram and 


returning back to the calling program is also nontrivial because the 
same suoprogram might be called several times, This involves 


(1) the instructions required to branch to the subroutines; 

(2) the prologue or initialization of the subprogram, involving 
the transfer of the return address and the input 
parameters; and 

(3) the epilogue involving 
(a) transfer of the values or names of the output 

parameters; and 
(b) return to the calling program, 


be called from different parts of the main program, 
It has therefore to remember the context each time it is called and 
return control to that part of the program from where it was called, 
Before control is transferred the return path has to be established, 
(e.g. as in the сазе of the assigned GO ТО; see Sec, 6.3.2). Execution 
time and memory space overheads have also to be taken into 
consideration as has been mentioned already. Indiscriminate use of 
subroutines for performing simple computational tasks results in some 
inefficiency. It must be remembered, however, that the advantages 
outweigh this, except in applications where space and time are very 


eritical. 


A subprogram may 
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EXERCISES 


1. Define statement functions to compute 
(i) the surface area of a cone 
(ii) the area of a regular polygon 
(iii) the moment of inertia of a tennis ball (two concentric 
Spherical shells of different materials) about its centre 
of gravity 


2. Which, if any, of the columns of a punched card containing a 
complete FORTRAN statement cannot contain the following? 

(i) equal to sign 

(ii) number 

(iii) decimal point 

(iv) alphabetic character 

(v) blank space 

(vi) opening parentheses 


(vii) closing parentheses 
(viii) comma 


(ix) zero 
(x) any other FORTRAN characters б 


3. Write а subprogram which, given an array (of опе, two or three 
dimensions), a comparison value and a percentage error limit, delivers 


subscripts of all elements which match the comparison value within the 
specified error limits. 


4, Write a subprogram which delivers an array where each element is 


a specified function of the corresponding element of an array supplied 
to it. 


5, What, if апу, аге the mistakes іп the following; 
(i) COMMON // A(10), Б(1), C/L1/A(4), B(2) 
(ii) EQUIVALENCE (A,L,Q) COMMON A,B,C,L,M,N 


Chapter 9 


ERRORS, EFFICIENCY 
AND STYLE 


9.1 INTRODUCTION 


ufficiently familiar with FORTRAN and be 
It is an artificial language and quite a 


powerful one. Consequently it is also rather complex. The 
peculiarities (as compared to natural languages on the one hand, and 
mathematical notations on the other) of artificial languages in 
general, and those of FORTRAN in particular, contribute to the 
problems of a beginner. It would be instructive to know the likely 
pitfalls, and how to eliminate them completely or at least minimize 
them. It would help to be aware of the methods commonly employed to 
detect mistakes in a program. This would make it possible to 
organise programs in such a manner as to locate and correct such 
mistakes easily. Further, a good programmer has to keep in mind the 
efficiency of his program in terms of memory requirements and the time 
for its execution. Finally, writinga computer program is an art of 
expressing oneself in a language (artificial though it be) and it is 
important to achieve clarity, brevity and elegance of expressim - in 
short, to acquire good style. These aspects are briefly dealt with in 


this chapter. 


By now, the reader should be S 
able to write programs in it. 


9.2 COMMON FORTRAN ERRORS AND MISTAKES 


A computer program involves activity at three levels: 


(1) an overall appreciation of the basic task and formulating a 
suitable approach for performing it; 

(2) translating this into a flow chart which cutlines the basic 
subtasks, their interlinking and the flow of control between 


them; and 
(3) finally, writing the detailed code. 
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9.2.1 Appreciation of the Task at Hand 


Major deviations can arise between expected results and actual results 
due to wreng interpretation, understanding and implementation of the 
problem at hand. Formulation of approaches to solve problems in 
various application areas is concerned with understanding the theory 
and ehcosing suitable models and formulae but falls beyond the scope 
of this book. we shall, therefore, assume that this has been correctly 
done. 


9.2.2 Choice of Algrithns 


The choice of inappropriate algorithms or library routines, 
nonconvergence of iterative processes, inadequate precision in the 
machine, etc. lead to mistakes in a program. Accumulation of roundcff 
errors and the consequent loss of significant digits may cause major 
errors in the results obtained. 


9.2.3 Detailed Implementation 


Translating each of the blocks of a flow chart into FORTRAN statements 
can give rise to problems due to the peculiar syntax and punctuation 
of programming languages. In Chapter 2, we identified the need for 
developing special (artificial) languages for describing algorithms 
and outlined their advantages, viz., syntax and semantics are simple, 
ambiguity is avoided and interpretation and translation into machine 
language are easier since the number of ways of specifying a given 
‘action' is limited. however, one disadvantage is that, being 
artificial, these languages are not easy to learn. 

Also, ап artificial language avoids redundancy for the sake of 
efficiency and ease of processing. Therefore, chenging even a letter, 
number or symbol would make a sentence or expression either 
meaningless or ambiguous (and therefore unacceptable), or convey a 
meaning totally different from what was intended, 

Similar and even more serious mistakes in natural languages do 
not, in most cases, appreciably affect intelligibility. All this 
implies and imposes a degree of rigidity and discipline in the use of 
artificial languages. Many annoying mistakes in FORTRAN programs arise 
from a_failure to appreciate this problem. A specific example is the 
use of punctuation. In natural languages, the omission of punctuation 
marks is usually not critical whereas in FORTRAN, these marks are an 


РМ 
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essential part of the language primitives and are, therefore, very 
important. Even blank spaces are critical; dropping or inserting them 
can radically change the intended meaning. 

The most common mistake in FORTRAN programs written by beginners 
is a dropped or wrongly used punctuation mark, A space inserted in or 
dropped from a Hollerith constant in a FORMAT specification causes the 
entire specification to be wrongly interpreted and can lead to 
syntactical errors. Dropping a comma separating the subscripts ina 
multi-dimensional array may lead to disastrous results. A dropped 
comma in a DO statement (DO 131 = 110 instead of DO 131 = 1,10) turns 
it into an assignment statement. In a variable list, a dropped comma 
between two variable names causes them to be read as a single name, 
The use of nested parentheses (àn arithmetic and logical expressions, 
implied DO loops, input and output statements ànd FORMAT 
specifications) is another source of mistakes due to unmatched left 
and right parentheses. 

Mistakes associated with comment or continuation columns could 
cause major problems: the compiler would attempt to interpret a 
comment or the continuation of. an earlier statement as a new 
statement, or concatenate two different statements into one, with 
obviously disastrous results. Unlabelled FORMAT statements, labelled 
blank statements, missing END cards in subprograms, and insertion of 
declaration statements after executable statements, are some other 
1 акез which result from inadequate attention being paid to FORTRAN 
rules. 

Use of variable names which do not start with an alphabet, 
omission or duplicate declaration of array dimensions, use of mixed 
mode expressions in systems that do not permit them, failure to 
maintain consistency of variable lists of COMMON declarations and 
spelling inconsistency in variable names are also to be guarded 
against. Naming of variables in conformity with the TYPE convention 
(and TYPE declaration where necessary) should be ensured, 

Examples of likely mistakes in the use of arrays and of DO loops, 
nested or otherwise are: use of non-integer variables or improper 
expressions for subscripts, DO index and DO parameters, zero increment 
for DO loops; overlapping of different DO loops; repeated use of the 
same index in nested loops; and using ап illegal statement (e.g. GO 
TO) for DO range termination. Another common mistake is for the range 
termination statement to occur before the DO statement in terms of 
control flow. Very frequently mistakes occur in fixing values for DO 
parameters to provide for the desired loop count. 

Use of adjacent "operators, ‘adjacent commas and empty or 
mismatched parentheses leads to errors in expressions, Inadequate 
familiarity with the rules of precedence leads to writing an 
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expression which may be evaluated in a different manner than is 
intended (e.g. A*b/D?E**F). 

Failure to visualize the flow of control carefully leads to 
statements which do not have a control path leading to them or 
omission of one or more boxes in the flow chart during coding. Lack of 
consistency in data types and order of occurrence of real and dummy 
variables in parameter lists of subroutine calls will lead to serious 
errors in execution. Testing fon. equality of real variables 
(arithmetic IF) is fraught with danger due to round-off errors. Hound- 
off errors сап be quite appreciable particularly while evaluating 
expressions like A/(C-D) where C and D are approximately equal. As 
already seen, even an operation lik? adding 0.01 to itself а large 
number of times (say 10000 times) introduces a sizeable cumulative 
error arising from the rounding-off during conversion of 0.01 into the 
equivalent binary number. Subtraction can lead tc loss of significant 
digits, particularly if tne two numbers are of nearly the зале order. 
For fast changing functions, there would be a multiplier effect 
between output and input errors. Build up of round-off errors could 
seriously affect the results obtaineu 

Integer conversion involves truncation (in order to do syrimetric 
rounding, one has to use an expression like ID = A/B + 0.5). 
Arithmetic overflows can occur, particularly in the intezer mode of 
operation. 

Wrong algorithms, wrong data or wrong logic could result in 
endless loops because the loop termination criteria will net be met. 

Use of variables and constants in the program is anotner 
potential area for mistakes: these include undefined variables and 
failure to initi. lize variables, counters and control constants (these 
could be variables in the program), overwriting of constants, eto. 

Input errors can arise due to punching mistakes ог card reader 
errors. Terminating a read operation by card count can also cause 
errors, 

FORMAT conventions constitute a major source of errors: 
incompatibility of variable and field types, e.g using F 
specification for integer data and 1 specification for floating point 
data, insufficient field width for I or F specifications and failure 
to provide for the carriage control character in the first column of 
each output record. Referencing of dummy and actual arguments in the 
proper sequence and conventions to be followed for COMMON blocks 
demand special caution while using SUBROUTINE and FUNCTION 
subprograms. The use of variable dimensions in subprograms requires 
caution, since disparity between array sizes in the main program and 
the subprograms will result in wrong referencing of elements of multi- 
dimensional arrays. 
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The various types of mistakes and errors described above might 
occur at various stages and levels of programming. Whether they can 
be detected and at what stage would depend оп the nature of the error. 
Syntax errors (e.g. unmatched parentheses and missing punctuation 
marks) would be detected at the compilation stage. Errors such as 
arithmetic overflows and divide fault may be detected only during the 
run stage. Wrong algorithms, mistakes in branching, eto. may not be 
deteoted at all unless the program is tested with representative sets 
of a variety of input data. 


9.3 DEBUGGING ОЕ PRGRAMS 


Considering human fallibility and the complexity of the task involved, 
even programs written by an expert with the maximum care would not be 
entirely error-free. Unless a systematic procedure is adopted, 
identification and elimination of such errors or "bugs' would become 
very difficult and require even more effort than writing the program 
in the first instance. We shall, in the following sections, examine a 
step-by-step procedure for minimizing and locating such bugs. 


9.3.1 Pre-checks 


The starting point of a program is an algorithm. This should be 
correct and applicable in the context or environment in which the 
program is expected to be used. Ensuring conformity between the flow 
chart and the intended algorithm before translating it into a program 
is very useful in detecting any mistakes made at this stage; these 
сап be very costly to rectify if not detected till after the program 
is written, This checking should be as comprehensive as possible and 
may involve manually performing the operations specified in each box 
in the flow ohart for different data sets and verifying the results. 
The flow chart, in suitable cases, can be hierarchically organized, 
each box at the higher level representing a lower level flow chart; 
this checking can then be done at each level. 

Translating the flow chart into code is a straightforward 
process. It is, of course, important to retain the maximum possible 
degree of modularity in implementation so that each module сап be 
dealt with in isolation so far as writing, checking, and trial runs 
are concerned. Ticking off individual boxes as they are translated 
into code would help to ensure that no box is missed. It would be 
convenient to put within each box the labels of the corresponding 
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statements, to serve as a cross reference, 


In the completed code, the following points should be checked: 
whether, 


(1) variable names used are either in conformity with the naming 
convention or have been type declared; 

(2) all variables have been assigned values by input, DATA or 
arithmetic assignment statements before their values are 
used; 

(3) all the rules of syntax have been observed; 

(4) punctuation is correct throughout and particularly in DO, 
FORMAT and implied DO statements; у 

(5) loop counts and index variable references have been 
correctly provided for and nesting of implied DO loops has 

been implemented properly; 

program logic has been implemented correctly and all branch 

conditions have been properly specified; 

(Т) tests have been incorporated for input range checking; 

(8) values of the other variables are not likely to go beyond 
permitted limits for the expected ranges for input 
variables; 

(9) input and output field Specifications and formats are in 


conformity with the data types of the respective variables; 
and 


Subroutine and function oalls are as Specified, and real and 
dummy parameter lists correspond to each other in the 


parameter lists and common statements (if any) in all the 
subprograms. 


(6) 


(10) 


The above list might арреаг superfluous to the reader who thinks 
that most of the errors checked above would be automatically pointed 
out by the compiler and that such a check out is a tedious process, 
These checks are Suggested because in some cases, they might go 
undetected during compilation and it will be very difficult to deal 
with them later, Further, the experience that one gets in checking 
such mistakes has its own reward; they are far less likely to occur in 
subsequent programs. 

After such a manual check and correction of апу errors it is 
advisable to have a dry run on the program: manually Eoing through the 
steps in a few simple cases with the corresponding data, A tally may 
be kept of the variable names used and the successive values that they 


assume as the computation progresses. This helps to pinpoint errors 
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like overwriting of variables, failure to initialize or reset counters 
and other parameters, mistakes in arithmetic expressions, eto. It 
would be better if this is done by a person not involved in planning 
and writing the program. 

Now the program is ready for a computer run. If the above steps 
are carried out with care, errors that still remain unnoticed would be 
minimized. The computer would detect them and print appropriate error 
messages either during compilation or during trial runs. Information 
regarding possible error messages, and how to correct them is 
available in the FORTRAN manuals of computer manufacturers, 

Even after the program has been successfully compiled, it does 
not necessarily mean that it is free from bugs. It is necessary to 
test it on the machine using carefully chosen test data. Results 
expected with each data set should be known a priori to make 
verification possible. The data sets chosen for this should be 
representative enough to cover all the possibilities that can arise in 
actual practice. They should not, of course, be so elaborate as to 
make the testing procedure more expensive than the actual usage. 

An inadequately tested program may keep on giving wrong results 
which the user unwarily assumes to be true. Errors may also surface 
long after the program has been written and could, therefore, be very 
difficult to eliminate. 


9.3.2 Trial Runs 


It is possible that despite all earlier checks a program might 
misbehave at run time; it might go into endless loops, terminate the 
job due to unexplainable fault conditions, or give wrong results. 
Several techniques are available to deal with such situations and are 


described below. 


9.3.3 Trial and Error 


The most straightforward approach that requires minimal intellectual 
effort is to use a trial and error method. Statements which are 
suspected of being responsible for the error сап be modified or 
rewritten and the 'corrected' program retried. Т! s is a 5rute force 
method. It does not provide any insight into the nature of error. How 
soon (and whether at а11) a fault can be rectified using this method 


is, to some extent, a matter of chance. 
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9.3.4. Use of PAUSE Statements 


The insertion of a number of labelled PAUSE statements at various 
strategic points would be useful to debug some programs. Whenever a 
PAUSE occurs, one could trace the flow of control, and any other 
conditions of interest before restarting. This technique, however, is 
possible in small systems which can be used on a dedicated basis or on 
time-shared systems but not in batch processing environments. 


9.3.5 Sectioning 


Printing of intermediate results (values of parameters used) is useful 
in understanding what might have gone wrong, if these intermediate 
results are predictable. Similarly, one can force such variables to 
take desired values (by inserting extra arithmetic assignment or input 
statements) at various stages of program execution to test output 
behaviour. Both these methods amount to 'sectioning' programs and 
testing them in parts. Printing of intermediate results helps to test 
the preceding parts of a process while assigning values to variables 
in-between helps to test the parts that follow. A combination of 
these two can be used to test any part of the program. This method, 


however, necessitates additional statements to be inserted in the 
program. 


9.3.6 TRACE Facility 


A very powerful aid to debugging is the TRACE facility which can be 
utilized by the statements TRACE ON (to start it)-and TRACE OFF (to 
terminate 1%). For the part of the program bounded by these two 
statements, the complete branching history of the program is made 
available to the user. The label of each labelled (executable) 
statement is printed as it is executed. The names of each subprogram 
called and the corresponding RETURN statements are also printed. This, 
combined with the printing of intermediate results, is very helpful in 
program debugging but requires additional memory Space and computation 
time for the TRACE facility. Also, unless judiciously used,it could 
generate voluminous output of doubtful utility. 


9.3.7 Memory Dump 


A final option to which one can take recourse when other methods fail 
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is to print out the contents of the memory by using the CALL DUMP 
statement. This causes the memory contents to be printed out in octal 
or hexadecimal code, A detailed analysis of the memory contents at a 
crucial point in the program will, hopefully, provide clues as to the 
possible errors in the program. This, however, requires a thorough 
understanding of the compiler and the machine language of the 
computer, and is usually a very involved process. 

It is difficult to say a priori which of these methods is likely 
to be most useful in a given situation, This would depend on the type 
of program and the type of error. 


9.4 PROGRAMMING EFFICIENCY 


Not all error-free programs written to perform a given job are equally 
efficient. There could be differences in the memory requirements and 
the time taken for computation. We have already mentioned that a 
program written in FORTRAN is, in general, much less efficient than 
one written in assembly language. Such differences can, 
understandably, also exist between programs written by different 
programmers. One reason for this could be that the algorithms chosen 
are different. Even when the algorithm is the same, differences could 
arise depending on the computational methods chosen, and the way the 
program is organized. Some of the methods to achieve efficiency in 
programs are described in the following sections, 


9.4.1 Space Efficiency 


Memory space is required for the storage of the program as well as for 
data, One of the most obvious ways of achieving efficiency in 
utilization of storage space is to minimize the memory space required 
for data storage, 6.8. by avoiding double precision where single 
precision is adequate and real values when integer values suffice 
(real constants require more memory locations in some machines). 
Subscripted variables consume considerable memory space and minimizing 
their use would be desirable. Similarly, where an array of fewer 
dimensions is adequate, one could avoid use of higher dimensions. 
Avoiding wide margins in dimension declarations would also be a good 
policy. Use of EQUIVALENCE statements wherever possible can also save 
memory space, Arrays where most elements are empty can be stored as 
‘tables' where the subscript values and values of elements are stored 


only for non-zero elements. 
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Often, there is scope for reducing the number of intermediate 
variables; e.g. compare the following two equivalent sequences: 


7% 
ЭА WW апа K=Y+Z W 
Di = ХХ X Ltk 
D2 = 1./D1 Х = 1./Х 

Х = D2 


Not only does the second version require fewer variables but also it 
is shorter and faster. Such techniques can be very profitable, 
particularly in the case of arrays. For instance, if a matrix is to be 
transposed, the elements of the transposed matrix can be stored in the 
space occupied by the original matrix itself, rather than elsewhere, 

Use of subprograms involves overheads in data space and might be 
avoided where space is a constraint. In general, they save program 
space. Open subroutines (usually those which have a straight flow of a 
few instructions without loops or branches), however, do not offer 
this advantage since they are physically inserted into the code each 
time they are called. Statement functions can also save Space, except 
in systems where they are implemented as open subroutines, 


9.4.2 Efficiency in Time 


The time of execution for various 


commonly used o 
in the following order for most ma 


perations increases 
chines, 


(1) Fixed point addition and subtraction, 
(2) Floating point addition and subtraction, 
(3) Fixed point multiplication, 

(4) Floating point multiplication. 

(5) Division. 


(6) Address calculation for subscripted variables. 
(7) 


Mathematical function calls including exponentiation, mode 
conversion, ete, 


(8) Input and output. 


1% would, tnerefore, be adv. 


antageous to replace X ## 2by X*x, 
2* X by X + Х, X/5. by X # 0.2 and so on, Nesting of multiplications 
would be useful, e.g. ((A®X4+5) 9 X + C) * 


ЖЕ X + D instead of 
(А#х## ЗБ #8 2408x450), Frequent mode conversions involve a heavy 
penalty in terms of time and should be avoided, Consider the following 
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two equivalent sequences: 


Ge B+ i and AI = І 
р= Е +: C = В + АІ 
р = # А 


Though shorter, the left 3equence is slower than-the right one, 
since it involves two mode conversions. The same is true for mixed 


mode expressions. 
Address calculation for arrays involves multiplication and is 


time consuming. It would be desirable to avoid this by referring to 
array elements using a single subscript (manual calculation of 
subscript address). Frequently used array elements can even be stored 
as scalars separately. For example, the statement 


А = X(K,L,M) * X(K,L,M) 
сап be replaced by the sequence 


X(K,L,M) 
A*A 


=> 
"ou 


Redundant calculation of expressions is a waste of time and 
should be eliminated by the use of intermediate variables, 6.8 


A 
A1 


(2.*B+C) #* 2.+D/F 
(2.#B+C) ** 2./H 


can be replaced by 


(2.*B«C) ** 2. 
G+D/F 
G/H 


G 
A 
A1 
Optimization of time is most important within DO loops, 
particularly in nested loops, due to the multiplier effect. All loop- 
independent calculations and tests can be brought outside the loop. 
Similarly, if the loop contains any reference to array elements whose 
subscripts remain unchanged, this сап be eliminated by assigning their 
values to scalar variables outside the loop, 30 that only the scalars 
need to be referred to within the loop and not the array elements. 
Incrementing the index variable and limit checking involve 
overheads which, with some care, can be minimized. For example, small 
loops which require to be traversed a few times can be 'unrolled' or 
eliminated and replaced by repetitive straight code. For loops which 
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require a large number of traverses, this number can be halved (with 
considerable savings in overheads) by partial unrolling. For example, 
compare the two sequences which are equivalent: 


ро 1 I= 1, 10000 DO21 = 1, 10000, 2 
TAG) ет A(T) EU 
2 КІМ) = (1+1) 


Similarly, where two loops have the same limits, it may be 
possible to merge them. In fact, even if the limits are different, 
merging may be achieved as indicated below. 


DO 1 Is 1, 8000 DO 1 I = 1, 8000 
1 МС) zd MI) 211 
DO 2 І = 1, 10000 1 N(I) =I+I 
2 N(I) sA T DO 2 I = 8001, 10000 
2 N(I) =1+71 


Here, the part of the second loop which could not ђе merged has 
been separately implemented. 


In the following example, the increment is alsc different for the 
two loops: 


DO 1 I = 1, 8000 DO 1 I = 1, 8000, 2 
1 M(I) =I M(I) е 
0021 = 1, 10000, 2 М(1+1) = 1+1 
1 NG) = 0 
2 №1) = 0 DO 2 І = 8001, 10000, 2 
2 N(I) = 0 


Чеге, the first loop has been partly unrolled and merged with part of 
the second loop, the remaining part being provided for as a separate 
loop. 

Reduction of operator strength in DO loops is another useful 


technique for time optimization. Consider the following two 
alternative sequences of statements: 


DO 1001 = 1,1000 TASS т 
A(I) = R**I RI =R 
100 B(I) = T*I DO 100 I = 1,1000 
; A(I) = R1 
ВО) = T1 
ВІ = RI*R 
100 T1 = 71147 
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It can easily be seen that both sequences accomplish the same 
objective but the one on the right is much faster, though it adopts 
what might appear to be a slightly roundabout approach. Is there any 
even faster alternative? (Remember, computation of array element 
addresses is time consuming.) 

Such tricks, it may be mentioned, are worthwhile only when the 
number of traverses is very large, and should be carefully checked to 
avoid mistakes, Readability suffers in such cases and therefore they 
should not be resorted to ordinarily. 

Implied DO loops are very expensive in terms of time spent, 
Unless only partial input of an array is desired, it wculd be faster 
and better to substitute an implied DO loop by the unsubscripted name 
which causes the entire array as declared in the DIMENSION statement 


to be transferred. 


9.5 PROGRAMMING STYLE 


We nave mentioned earlier that one of the advantages of artificial 
languages is that they can be designed to restrict the latitude 
available to the programmer in describing algorithms and thereby 
simplify the task of interpreting such descriptions. Considerable 
variety is still possible in implementing even simple algorithms in 
artificial languages, so that not all programs written for the same 
task are equivalent in all respects. This variety can arise due to 
several reasons, e.g. constraints of space and time, the type of 
system on which the program is to be run and the facilities available 
with it. A somewhat less tangible variant is the subjective element: 
the personal style of the programmer, 

Formulation of rules or guidelines to achieve efficiency is easy 
with respect to measurable parameters, e.g. memory and execution time. 
This has been dealt with in the previous section, On the other hand, 


one cannot quantify objectively 
(1) the time and effort spent by the programmer to write the 
program and to debug it; 

(2) the clarity and elegance of the program as it appears to а 
person who was not involved in writing it; and 

(3) the time and effort required of a new user to understand and 


use it. 


It is not possible in this case to derive naturally and 
objectively rules and guidelines which help optimize these parameters. 
The reason for this is that writing programs is a creative act ivity 
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which is as much an art as it is a technique. 

We shall, nevertheless, attempt in Secs. 9.5.1 and 9.5.2 to 
outline some broad principles and guidelines which are likely to help 
in the development of good Style. 


9.5.1 General Principles 


Clarity is an important criterion for conveying information. Computer 
programs are no exception to this important rule. Shortcuts, non- 
Standard approaches and clever tricks, while they might yield a 


for another user to follow (or even for the writer, after a lapse of 
time). These should be normally avoided. When they are really 
necessary, these should be clearly explained (with the help of 
comments). 

Inelusion of information which is not immediately relevant 
detracts from the central theme. Conciseness is one of the best ways 
of achieving clarity. ] 

The use of variations and dialects of a language, even though 
they might offer some advantages, reduces clarity and 
transportability. These should be avoided. 

The first attempt to accomplish any job is usually not the best; 
a critical examination of the results of a first attempt usually 
Suggests several modifications which, if implemented, improve clarity 
and performance, 

Optimization, while it is a desirable objective, yields 
diminishing returns and becomes Self-defeating if pushed beyond 
limits. This should be avoided. 


9.5.2 Specific Guidelines 


Within the framework of the guidelines mentioned above, let us outline 
а number of specific points that a programmer ought to keep in mind. 
These relate to the various aspects of writing a program - the 
algorithm, the structure of the program, the actual code, input and 
output - and are broadly organized on these lines. 


The Algorithm: The basic algorithm employed should be of general 
validity to permit its utilization under a variety of situations. 
Rather than narrowly delimit the conditions under which the program is 


Errors, Efficiency and Style 253 


applicable, it is preferable to use variable Parameters (for the 
number of data sets, accuracy limits, etc.) so that these can be 
externally specified at the time of use. It is, at the same time, 
important to clearly specify the constraints applicable, to avoid 
wrong results. 


Comments: Even the simplest and most carefully written program may not 
be easy to follow by itself. Explanatory comments are very helpful and 
form a necessary part of the program text. А 'prologue' of comments 
explaining the object of the program, the variables used and the 
general constraints if any, would be most desirable, Similarly, 
comments can occur in the text also to explain steps which are not 
immediately obvious. It must be remembered, however, that -excessive 
comments should be avoided as they detract from the readability of the 
text. It is also important to see that the comments do not merely 
repeat the code (e.g. V is read; K is initialized to Zero; X is 
compared with 2.6 etc.). Another pitfall is having outdated comments 
which do not correspond to the code, This can happen if, at a later 
stage, the code is amended but not the comments. To improve 
readability, it is advisable to group comments together at a few 
places in the program and space them out from the code by using blank 
cards rather than liberally intersperse comments and code. 


Statements: Following the flow of control becomes eaSy, particularly 
in large programs, if the statement labels are in ascending order. 
Later insertions will be painless if one uses increments of 10 (or 
more for large programs). An easy way of avoiding confusion between 
labels of executable statements and FORMAT Statements is to start the 
former from serial number 1 and the latter from number 1000. Format 
statements can either be all grouped together or follow the respective 
input or output statements. The latter alternative makes it convenient 
to check field specifications against the variable list. Providing 
Sequence numbers for cards 15 advisable ard can be a great 
convenience if the card deck gets jumbled up. The Sequence numbers can 
also go up in steps of 10 so as to make insertions possible later on. - 
b In ease continuation cards are necessary, the material can be so 
indented as to line up similar material (e.g. expressions to the right 
of the 'equal to! sign). Similarly, spaces can be used appropriately 
So that the 'equal to' sign is aligned in all the arithmetic 
Statements. The danger of the loss of continuation cards going 
undetected can be avoided by terminating the earlier card with an 
no e (This causes a Syntax error if the continuation card is 
ost. 
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Modularization: Dividing the program into a number of self-contained 
midules not only makes it easy to write, check and test the program 
in terms of the modules, but also helps considerably in 
simplifying the structure and making the program much more 
readable as each module accomplishes a clearly defined function. The 
main program need not be much more than a sequence of call statements, 
which clearly reflect its structure, with a minimum of control 
transfers between different parts. Liberal use of library 
routines and functions is advisable since this adds to readability 


and minimizes the effort involved and the probability of making 
mistakes, 


Branching: Discontinuities in the flow of control make it difficult to 
follow a program but are inevitable when a structured flow chart has 
to be implemented as a sequential program. The use of subprogram 
modules helps to some extent in improving clarity, It is preferable, 
by rearranging the code and modifying branch conditions, to eliminate 
all avoidable branching and GO TO statements. The necessary branches 
may be implemented in a manner such that the intent is quite clear, 
The use of the logical IF is the best way of achieving this objective, 
A multi-way branch can be implemented by a cascade of logical IFs 
following each other. The use of a sequence of IFs 1з bad practice 
since it takes an effort to follow. It would be better to write a 
single comprehensive logical expression which incorporates all the 
logic. The arithmetic IF statement is neither obvious nor safe. Unlike 
the logical IF, it does not clearly indicate its intent and as a 
consequence creates confusion between the conditions for the three 
branches (<0, = 0, and 50). Also, the equality condition has its own 
pitfalls, particularly in the case of real arguments, It is better to 
avoid this statement, 

The use of assigned and computed GO TO statements is also not 


very desirable from the point of view of the readability of the 
program, 


Loops: The DO loop із a great convenience in FORTRAN but has its 
pitfalls: neither its intent and range are obvious, nor is the number 
of traverses intended. There are chances of miscaleulating the 
count by one as one usually forgets that all DO loops are traversed at 
least once. Confusion arises as to whether the terminal (labelled) 
statement in the range is actually included in the loop and what are 
the statements that are not permitted in this position, А11 such 
confusions become more confounded in the case of nested loops, 

Legibility, intent and structure improve considerably by proper 
layout of the program. 


loop 
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(1) indenting all statements in the range of a DO statement 
(including the DO statement itself) 2 or 3 spaces to the 
right, 

(2) indenting each inner loop by 2 or 3 spaces in nested DO 
loops, 

(3) using CONTINUE as the terminal statement in all DO loops. 


Variables: The naming facility for variables is a convenience in 
FORTRAN that can be well exploited. The use of meaningful and mnemonic 
names is preferable to arbitrary names like А, B, ete, Names which сап 
be confused with each other should be avoided. The naming convention 
with respect to data types can be followed as far as possible since it 
is also a convenience which avoids confusion and helps in checking 
expressions, input and output formats, etc. for mode consistency. 
Routine initialization of all variables to their intended values would 
be a good practice. Variables whose values are assigned by input 
statements can be initialized to zero since this would make it easier 
to check failure in assigning proper values later. 

Although the use of temporary Variables saves memory space and 
computation time, following the code becomes a difficult task. This 
should be avoided unless space and time are at a premium. 


+ The essence of good style is to ensure that the intention of 
the writer is clear and not obscured by tricks and non-standard 
techniques of implementation. Consider the following alternative 
methods to achieve the same end: 


N = (1/4) * (4/1) 
апа 

Nos 0 
IF (I.EQ. J) N= 1. 


Not only does the first method render the purpose obscure, it is 
expensive as well. It is, therefore, advisable to write clear and 


straightforward code. 


Expressions: Neatness and clarity can be achieved by proper 
-arrangement of symbols. Since the blank or space character is ignored 
by the compiler, blanks can be used to achieve a neat and easy-to-read 
layout. For instance, blanks can be used on either side of arithmetic 
and logical operators. Expressions such аз (B+2, .6Т. .3) should be 
avoided since they are confusing. The expression (В+2.0 .GT. 0.3) 
would be easier to read and less confusing. Even though the precedence 
rules and rules for evaluation of expressions are very well defined, 
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mistakes are likely either while writing code or interpreting it. For 
example, a/b.c is interpreted as a/(b.c) in algebra while in FORTRAN 


A/B*C is equivalent to (A/B) * C. Liberal use of parentheses helps in 
eliminating such ambiguities and improving clarity. 


Input: Тһе behaviour of the program depends on the inputs supplied to 
it. Even one wrong input can cause a large program to crash and waste 
considerable computer time, It would be good policy, therefore, to 
test inputs for validity by limit checking (and other tests, e.g. 
sides of a triangle should satisfy the relation a + b > с). Wherever 
possible, recovery from wrong inputs can be provided for, 

For reliability, use of the last column in a punch card may be 
avoided. Terminating a read operation by means of a read count can 
cause errors; it would be safer to do this by a special marker or on 
detection of the end-of-file record. Also, input formatting could be 
So organized as to avoid irregular field width Specifications апа 
provide adequate spacing between the fields. А field Specification of 
(5(F7.3, 2X)) is easier to punch and check than (73,7 о FT.3, E10.2, 
2X... eto.). 

While allowing for flexibility by providin 
process parameters to be externally Specified, 
internally assign 'most likely' values for thes 
unless specified otherwise. It is also desirable to output the values 


of all such relevant parameters, particularly those that have been 
assumed in the absence of external Specification, 


Output: Clarity, neat layout and adequate explanatory text are 
more important for computer outputs than for the program list 
since the former are generally used by more persons. 

Explanatory labels and text can be liberally used to achieve 
readability. Fw.d output can be used in preference to Ew.d where the 
magnitude of the results is predictable, since it is easier to 
understand. Gw.d can be used where available since it gives F type 
output whenever possible and Е type only otherwise. Only significant 
digits need be printed in the results, 

Implied DO loops, apart from being time-consuming, are also not 


very easy to read, particularly the complex nested ones. It is better 
to avoid them, 


& for a number of 
it is a good policy to 
€ which will prevail 


even 
ing, 


9.5.3 Structured Programming 


The facility of transfer of control 


provided by the branching and loop 
control statements in a high level 


programming language enables the 
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implementation of flow charts of any arbitrary degree of complexity as 
computer programs. This flexibility, however, is not an unmixed 
blessing since this increases the difficulties of implementing, 
testing and understanding large programs. Structured progremming 
consists in limiting the types of interlinking of modules, thereby 
minimizing such problems, 

Since the concepts of structured programming could be imore 
conveniently discussed using the facilities available in  indiviiuel 
languages which are presented in later chapters, they are included in 


Appendix 6. 


9.6 SUMMARY 


The main aim of this chapter has been to emphasize that a direct, 
simple and clear code is the essence of good style. It would be best 
to inculcate such methods as a habit. Not infrequently, there is а 
conflict between good style and economy of computing time or memory 
space. It would be a good policy under such circumstances to consider 
good style as being more important, unless time and space constraints 
are very critical. For the type of problems that a beginner has to 


deal with, they usually are not, 
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FORTRAN - 77 


10.1 INTRODUCTION 


їп earlier chapters, we studied the various features of FORTRAN. There 
are many versions of tiis language and the one we studied is FORTRAN- 
IV ог FORTRAN-66, (a standard version approved by the American 
National Standard Institute). This has been in vogue since 1966. Many 
additional innovations and extensions were subsequently implemented in 
this language by various computer manufacturers and others over a 
period of time. Some of these were powerful and popular enough to 
warrant incorporation into the standard language. This,was done in the 
most recent standard version of FORTRAN which is the 1977 American 
National Standard FORTRAN: FORTRAN-77 for short. 

FORTRAN-77 therefore has a number of features which do not exist 
in FORTRAN-IV. Оп the other hand, it preserves practically all the 
facilities and features available in FORTRAN-IV. There are only a few 
minor deviations. This means that programs written in FORTRAN-IV would 
run оп FORTRAN-77 without needing any major modifications. Also, 
updating oneself to learn FORTRAN-77 would require study of only 


(1) those additional features that FORTRAN-77 offers over those 
of FORTRAN-IV; and 
(2) the few departures from FORTRAN-IV. 


The rest of the chapter Will, therefore, present these additional 
features and deviations, 


10.2 wATA TYPES AND TYPE DECLARATIONS 


10.2.1 Type CHARACTER 

All the data types introduced in Chapter 4 are valid in FORTRAN-77. In 
addition, there 1з а .facility to define the data type CHARACTER. 
Variables of this type аге used to represent character strings. The 


length of such strings can vary. The number of memory locations to be 


assigned for each variable will depend on the length of the string. 
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It is, therefore, necessary to declare not only that a particular 
variable is of the type CHARACTER; it is essential to declare the 
length of the string as well. This is done by a declaration of the 


following type: 
CHARACTER VIC*10, MAT*8 


This indicates that VIC is a string of 10 characters and MAT is a 
string of 8 characters. 


10.2.2 Implicit Types 


names starting with characters I, J, К, L, M and N are 
integer and all others to be type real unless 
otherwise declared. Thus, type declaration could be implioit but the 
followed was fixed. The programmer had no choice in this 
e IMPLICIT declaration of FORTRAN-77 permits the programmer 
e conventions, e.g. 


In FORTRAN-IV, 
taken to be type 


convention 


regard. Th 
to define his own implicit typ 


IMPLICIT REAL (R,S,T,U), DOUBLE PRECISION (G-K,X) 
This indicates that any name starting with R, 5S, T or U would be 
type REAL; similarly, that all names starting with any character from 


G to K (i.e G,H,I,J,K) or X will be type double precision. 


10.2.3 Parameter Declaration 


FORTRAN-IV draws a clear distinction between constants and variables, 
Constants are represented by their value and variables by name. There 
are, however, advantages in being able to represent constants by name: 
ек. the. value Of Pl... This: Уа брат ан to beydens. Буг Нв PARAMETER 


declaration as follows: 


PARAMETER (РІ = 3.1417, SQRT2 = 1-41421) 


The names so declared are constants and they assume only the values 
assigned to them here. They cannot be assigned any other values by 
READ or ASSIGNMENT statements. In other words. though they have names 


like variables, parameters remain invariant or constant 
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10.3 ASSIGNMENT STATEMENTS: CHARACTER STRING MANIPULATION 


The value of a CHARACTER variable can be assigned to another character 
variable by an ASSIGNMENT Statement of the type 


VIC = MAT 


An additional feature is the facility for assigning a substring 
(a portion of a String) as the value of another variable, e.g 


. 


CHARACTER VIC#8 , MAT*8 
VIC - MaT (2 : 7) 


МАТ (2: 7) із a substring comprising the 2nd to Ith 
characters of the string named MAT, 


Integer expressions are permitted in substring Specification, 
е.&. the right hand side above could have been МАТ (3*I, K+2), 


Character strings can be concatenated or joined together by the 
operator //, 


The statement 


VIC = MAT // K2 


means that the value of variable VIC is the String formed by putting 
together the Strings named MAT and K2. 


The operands on the right can be substrings instead of strings, 
e.g. 


VIC = MAT (3:6) // k2 (2:4) 


10.4 LOGICAL EXPRESSIONS: EQUALITY TEST 


The relational operator «Ей. checks whether the values of two 
arithmetic expressions are equal and gives the result (ТЕПЕ, if 
equality exists. The operator „МЕ. gives the result .TRUE. if the two 
values are not equal, FORTRAN IV does not provide a similar facility 
for logical functions, The operator ЕУ. (equivalent) permits this in 
FORTRAN-77. 

P .EQV. 0 is .TRUE. if the two logical expessions P and Q һауе 
the same value, Consider the expression 


А .EQ. B .EQV. C EQ. D 
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where А, B, C, D are arithmetic expressions, Its value is .TRUE. 


(1) if A equals B and C equals D or 
(2) if Ais not equal to Band C is not equal to De 


The symbol .EQV. is used to distinguish it from the relational 
operator .EQ. The operator .NEQV. yields the value .TRUE. if the 
values of the two operands are not equal and .FALSE. otherwise, 


10.5. INPUT AND OUTPUT 
10.5.1 READ and WRITE by Predefined Unit 


In addition to the standard types of READ and WRITE which we studied 
in Chap. 5, FORTRAN-77 permits these instructions in the predefined 


unit mode, 
The statements in such a case would, for example, be as follows: 


READ 25, X, Y 
PRINT 37, K, F 


The unit number is implied. The READ statement refers to the 
standard input device (e.g. card reader) and the PRINT statement to 
the standard output device (the line printer). The 25 and 37 above | 
(which are not enclosed in parantheses) refer to FORMAT statement 
labels, X, Y, K and F are the variables to be input and output, 

FORMAT-free reading and writing is also possible by using an 


asterisk (*) instead of a FORMAT statement label, e.g. 


READ *, X, Y 


10.5.2 FORMAT-Free (or Free-FORMAT) Input and Output 


FORMAT-free input and output described in Secs 5,3 and 5.5 are not 
features-of FORTRAN-IV. They are features of FORTRAN-77 and were 
included there. because of their simplicity and the fact that most 
modern installations have this facility, which enables the student to 
write programs even without learning the complexity of FORMAT 
specifications, This facility (called List Directed 1/0) is a standard 
feature of FORTRAN-77. We are not discussing it here since it has 
already been described earlier, 
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10.5.3 Field Specifications 
integer Field Specification 


Integer fields for both input and output are specified using the Iw 
specification in FORTRAN-IV. Here, w specifies the field-width; if the 
output contains less digits than specified in the field, blanks appear 
to the left. 


FORTRAN-77 permits the Specification of a minimum field width for 
output, The specification 


Iw.m 


indicates that а minimum of m digits should be printed out, 
zeroes to the left where necessary. The value 24, 
FORMAT, will appear as 024. 


adding 
printed in 15.3 


Exponential and General Field Specifications 


The exponent field specification (see Sec.5.8.2) was of the form Ew.d 
where w specifies the field Width and d the fraction subfield 
width (for output) or scale factor (for input), The subfield width for 


the exponent was fixed (2 digits), FORTRAN-77 permits a Specirication 
of the type 


Ew.dEe 


where e (an integer) specifies the Subfield width for the exponent, 


А similar facility 1з offered for the General Field 
Specification: 


би. (Ее 


is permitted, е specifying the subfield width, 


Horizontal Positioning 


Blank specification nX, we saw, indicates n blanks, 


The following 
additional features are available in FORTRAN-77. 


— 7 
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Te: Tabulate to column с or move to position c. 
TLe: Tabulate c columns backwarJ (or left) from current position. 
TRe: Tabulate c columns forward (or right) from current position. 


All these are valid for input as well as output. 


Sign Specifications 


We could not specify whether or not the plus sign is printed during 
output of positive constants. FORTRAN-IV does not give the user any 
choice in this regard. This depends on the implementation. FORTRAN-77 
permits him to override the convention as follows: 


SP : . Print sign even for positive values 
SS : Supress sign for positive values 
S : Revert to practice normally followed by the compiler 


Colon Specification 


A colon indicates that FORMAT control is to be terminated if there are, 
no further items in the input/output variable list. 


Textual Input 


Textual data can be input using either a FORMAT-free or a formatted 
READ statement. No specific type declaration was needed in FORTRAN-IV 
for character type variables; the type was implied for those variables 
which were read in using an A format specifier. FORTRAN-77 requires 
specific type declaration in such cases. 


Textual Output: The Apostrophe Descriptor 


The H specification is used in FORTRAN-IV for textual output. Tne 
problem with this is that it is prone to errors, since the number of 
characters (including blanks) has to be carefully specified. The 
apostrophe descriptor avoids this problem. Anything enclosed in 
apostrophe's is taken as a Hollerith constant. 

Thus 14HbTHEDANSWERDIS and 'bTHEDANSWERDIS' are equivalent. The 
first position is left blank in both cases for vertical spacing 


control. If an apostrophe is to be printed out as part of the text a 
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double apostrophe is used in the specification, 


An apostrophe specification can be used in list directed output 
also; e.g. 


WRITE (5,*) 'bTHEbANSWERDIS', Q 


The text within the apostro 


phes is output as it is, followed by 
the value of the variable Q. 


FORMAT specification by character constant or character variable 


FORMAT specification for in 
means of a FORMAT statemen 
WRITE statement; e.g. 


put or output is done in FORTRAN-IV by 
t. Its label is included in the READ or 


READ (4, 103) X, Y, z 


FORTRAN-77 permits FORMAT Spcecific 
constants or variables, in the pla 
Both the following two are valid: 


ations to be done using character 
се of the FORMAT statement label. 


READ (4, "ЗЕ 15.4") X, y, 7 
READ (4, K) X, Y, 2 


In the latter case, the variable K has to be type declared as type 
CHARACTER. Also, it has to be assigned an appropriate character 
String (3F 15.!, say), as its value by means of either an earlier READ 
Statement or an assignment Statement. 


Dropping of the Facility for Reading into a FORMAT 


FORTRAN-IV provides the f. 
FORMAT list of a FORMAT 


Descriptor 


Е Hollerith constants into a 
This permits the FORMAT to be 
е program, but is not a very 
TRAN-77 though the 
оссиг in a READ or 

atement label. The 
facility for reading a Hollerith cor i ORMAT descriptor has 
therefore been dropped in FORTRAN-TT. 


acility of readin 
Statement, 
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10.5.4 Sequential and Direct Access Files 


Information is stored in the main memory of a digital computer in the 
form of individual binary numbers, one for each location. The manner 
in which information is internally represented and subsequently 
interpreted will depend on the type of information stored - integer, 
real, Hollerith and зо on. Where the main memory capacity is not 
adequate to store all the information required in a program, it 
becomes necessary to store it elsewhere. Secondary memory is useful to 
store information not immediately required for processing, Such 
information сап be brought into the main memory whenever necessary, 
Information сап be stored in a secondary memory in the form of 
records. This сап be done in two different modes - in the form of 
sequential files or as direct access files. 

Sequential files are generally used in cases where information 
transfer between the main memory and the secondary memory takes place 
in bulk. In a sequential file, the individual records are organised in 
Sequence, опе after the other, Such records can be of varying length. 
Each record will have means for identifying its begining or end. 
Records in a sequential file should all be unformatted or all fully 
formatted. They are not numbered in any manner, There is no 
independent way of specifying or locating individual records. Only one 
record can be accessed at a time; records can be read or written only 
in sequence. There із по way of accessing, say, .the n-th record 
without accessing all the earlier records. The time taken to gain 
access toa record depends on the position of the required record in 
relation to the record which is currently under access. To change one 
record in a sequential access file, it is necessary to read the entire 
file and write it back after modifying the desired record. The last 


record in such a file is the end of file record. 
Statements that are relevant for operating such sequential files 


are 
READ, WRITE, REWIND, ENDFILE and BACKSPACE (see Sec. 5.17) 


Where there is need for frequent exchange of information between 
the main memory and secondary memory in small units of a few records 
each time, it would be appropriate to use direct access files. 

In a direct access file, all records are of the same length and 
each record has an identifying number, These numbers run from 1 to N 
where N is the maximum number of records in the file. The records can 
be stored or read in any order. All records are equally accessible; 
they are therefore called random access files (as opposed to 
sequential files where records ean be accessed only in sequence). 
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Magnetic tape units can handle only sequential access files, 
Magnetic disk units, on the other hand, can handle both sequential and 
direct access files. 

A direct access file is established by an OPEN statement, It can 
be operated like sequential files by READ and WRITE statements, though 
there are minor differences in the control specifiers (see Sec, 
10.5.5).. Direct access files May be looked upon for operational 
purposes as an extension of the main memory. BACKSPACE, ENDFILE and 
REWIND operations are meaningless in the case of direct access files; 
since all records can be accessed with equal ease at any time, there 
is no particular record which can be defined as being "currently under 
access", These instructions are therefore not necessary for direct 
access files, 

An OPEN sta\ement is used to associate (or connect) an existing 
file to an input unit or to create a file; e.g. consider an OPEN 
statement asking file PAYROLL to be opened on magnetic disk unit 4. If 
this is an existing file (it is assumed that it is available on that 
unit), it is "connected" to the unit: i.e. all further references for 
access from that unit are assumed to refer to that file alone. If it 
is anew file, it is "created" (and connected to the unit). The CLOSE 
statement terminates this association. 


The INQUIRE statement permits information to be obtained about 
the status of various parameters relating to a file ora unit. 


10.5.5 Control Specifiers 


Input and output statements require information regarding the logical 


unit number and FORMAT to be specified. This, we have seen, is done as 
follows: 


READ (5, 10) VAR 


The set of items in parentheses is called the 
element of this list is a control specifier, In this particular case, 
the control specifiers indicate that the variable VAR is to be read 
from Unit 5 using the FORMAT specified in statement 10. 

In FORTRAN-77, this can also be done as follows: 


"control list". Each 


READ (UNIT = 5, FMT = 10) VAR 


Here, the specifications UNIT = 5 and FMT = 10 are the control 


specifiers, A control list can consist of control specifiers of either 
type. 
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In fact, the two types can even be intermixed; e.g. 


READ (5, FMT = 10) VAR or 
READ (UNIT = 5,10) VAR 


Statements іп FORTRAN-IV have only two control specifiers аб the 
most. FORTRAN-77 permits a much larger number of specifiers in each 
statement; some of these are compulsory and some optional. Some 
control specifiers supply to the computer or the concerned unit 
information required for the specified operation to be performed, 
(e.g. the READ statement above). In other cases, control specifiers 
may be used to obtain information regarding the system or unit status, 


e.g. 
INQUIRE (UNIT = 12, FORM = FRM, RECL = LH) 


The INQUIRE statement, we mentioned, 1з used to obtain information 
about the status of a specified file or unit. Here, the specifier 
UNIT = 12 conveys to the system that an inquiry is being made 
regarding UNIT 12. The other two specifiers, on the other hand, are 
means of obtaining the required information, They specify the nature 
of the information required and where and how it is to be made 


available. 
The specifier FORM = FRM specifies that 


information is required about whether the data stored on the 
unit is in the formatted or unformatted mode and that 
(2) this information should be made available as the value of 


variable FRM. 


(1) 


The specifier RECL = L4 similarly specifies that 


(1) information is required regarding the record length of the 
record on file and 

(2) this information is 
variable LH. 


to made available as the value of 


Where information is being supplied, the control specifier does so in 
the form of a statement number, Character string ог a constant. Where 


information is expected, the control specifier supplies the name of a 
variable. The information required from the system is to be assigned 


as the value of the variable. An exception is the UNIT = specifier, 
This specifies the unit number either as a constant or as the value of 


a variable. 
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Iable 10-1 List of Specifiers for 
EORTRAN=77 Input and Output Statements 


1. ACCESS= 11. IOSTAT= 

2. BLANK= 12. NAME= 

3. DIRECT= 13. NAMED= 

4. ERR= 14, NEXTREC= 

5. END= 15. NUMBER= 

6. EXIST= 16. OPENED= 

T. FILE= 17. REC= 

8. FMT= 18, RECL= 

9. FORM= 19. STATUS= 

10 .FORMATTED = 20. UNFORMATTED 
21. UNIT: 


(For details regarding the Specifiers, 
consult Appendix 8) 
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Table 10-1 lists the control specifiers available in FORTRAN-77. 
Naturally, each of these is to be specified appropriately and the 
significance of the specification will be different for each 
specifier, Also, each statement would require a different set of 
specifiers, some being cumpulsory and some optional. In the case of 
some specifiers, default options are provided, If such a specifier is 
not included in the statement, the default option becomes operative, 

Control specifiers provide a versatile if slightly involved means 
of handling Input/Output operations, The control specifiers END = and 
ERROR = of FORTRAN-77 are particularly useful. Normally, an attempt to 


read records beyond the end of file causes an abnormal termination of 


the job. So does an error during read. 
This can be avoided as indicated in the following statement, 


READ (4, 100, END = 200, ERROR = 300) X, Ү1, Z3 


Control transfers to statement 200 if an end of file is encountered 
and to statement 300 if an error occurs during the read operation, The 
programmer сап provide appropriate recovery sequences at these 


locations, 


10.5.6 Input and Output Lists 


Input and output lists of READ and WRITE statements are lists of 
variables іп FORTRAN-66.  FORTRAN-77 permits the elements of these 


lists to be either variables or expressions. 
The following, for instance, would be possible 


READ (3, *) X, Y+ 2. #2, К 


10.6 BRANCHING AND LOOPING 


10.6.1 GO TO Statements 


There is no change in the unconditional GO TO. The computed GO TO in 
FORTRAN-77 permits an integer expression instead of only an integer 
variable, e.g. 


GO TO (100, 200, 310) І + де K 
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10.6.2 BLOCK IF, NESTED BLOCK IF and NESTED IF (ELSE IF) 


The logical IF of FORTRAN (see Fig. 10.1) permits branching. It 
involves testing whether a specified function is .TRUE, or .FALSE, Ап 
executable statement could be embedded into the logical IF. This 
embedded statement was executed if the specified condition was true, 
Nothing was done if the condition was not satisfied. 

This statement remains as it is in FORTRAN-77. The BLOCK IF, 
NESTED BLOCK IF, NESTED IF available in FORTRAN-77 may be considered 
to be extensions of the logical IF. 


The manner of operation of these statements is explained below. 


Logical IF Flowchart 
IF (condition) statement 


e.g. IF (A.GT.B) C= D True False 


(a) 


Block IE 
IF (condition) THEN 
statement Block 1 
ELSE 
statement block 2 
END IF 


Statement Statement 
Block Block 
1 2 


Fig. 10-1. The IF statement 


Nested block IF 


IF (condition 1) THEN 
Statement block 1 
ELSE 
Statement block 2 
IF (condition 2) THEN 
Statement block 3 
ELSE 
Statement block 4 
END IF 
ENDIF 
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Statement 
Block 
1 


Statement 
Block 
2 


Condition 2 


Statement 
Block 
3 


Statement 
Block 
4 


Fig. 10-2. The Nested Block IF statement 
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Nested IF or ELSE IF 


IF (condition 1) THEN 
Statement block 1 
ELSE IF (condition 2) THEN 
Statement block 2 


ELSE IF (condition 3) THEN 
Statement block 3 


.. Ж 


ELSE 


Statement block n 
ENDIF 


К» 


Statement 
Block 


Fig. 10-3. The Nested IF statement 


The false branch block, which follows the ELSE is executed only if 
none of the conditions is true, 


10.6.3 Loops 


S 


The DO statement, we have seen, is of the type 


DO 10 I s 1, 30, 2 
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where the loep parameters have all to be integer constants. 
In FORTRAN-77, there is no compulsion that these be integers. 
Also, each of these can be a constant, a variable or an expression, 


Examples of DO statements are: 
ро 20 X = 0.3, Y**2,-0.01 


The third parameter (increment) is assumed to be 1, if absent, А 
further feature in FORTRAN-77 is that if the upper bound is less than 
the initial value, the loop is not executed. In FORTRAN-IV, the loop 
is executed once, even in this case. Transfer of control into the 
range of a DO loop is specifically prohibited in FORTRAN-77. 


10.6.4 Implied DO Loop in Data Statements 


The variable list in a READ or WRITE statement can contain an implied 
DO loop, This facility was not available for the variable list in a 
DATA statement in FORTRAN-IV. In FORTRAN-77, this facility is 


available, e.g. 


DATA/A(X), X = 2,30/29#5.%/ 


10.6.5 Optional Commes in DO and GO TO Statements 


The use of commas in computed GO TO and DO statements has been a 
source of errors even with experienced programmers, These commas have 
therefore been made optional; e.g. the following statements are all 


permitted. 


рог 1=1,10,2 

ро 2, 1= 1, 10,2 

Go TO (10, 20, 30) I 

GO TO (10, 20, 30, 40), I 


10.7 ARRAYS AND SUBSCRIPTED VARIABLES 


10.7.1 DIMENSION. Statement 


The DIMENSION Statement in FORTRAN-IV permits the specification of the 
dimensionality (or number of subscripts) of an array (maximum: 
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three) and of the upper bounds for the values of these subscripts. 
The lower bound is implied to be 1: e.g. 


DIMENSION K(920), B(300,200) 


FORTRAN-77 permits two extensions: The maximum number of dimensions is 
Seven (i.e. arrays can have up to 7 subseripts each), 


Also, for each 
dimension, the lower and the upper bounds can both be 5р 


ecified; e.g. 


DIMENSION M(10:23, 5:17, 3:12, 4:7) 


This statement declares an array M which has four dimensions 
are four sets of subscript bounds, 


dimension, the upper and lower bounds of the subseri 


| 10,7... Other Statements 


COMMON and EQUIVALENCE Statoments are identical in the two versions, 


10.8 SUBROUTINES 


SUBROUTINE, FUNCTION and STATEMENT FUNCTION statements are all exactly 
the same as in FORTRAN-IV. The following facilities are available, in 
addition, 


10.8.1 Intrinsic Functions 


A large number of new intrinsic functions are available in FORTRAN-77, 
А list. of instrinsic functions available is maintained at each 
installation and Should be referred to, 

А few special functions connected with character 
mention. These are the lexicographic (inequality) 
greater than, less than eto, (LGE, LLE, LGT, LLT) 

Character strings can be ordered lexicographically: i.e. іп the 
alphabetic order in which they appear in а dictionary, А string S1 is 
said to be less than another String S2 if S1 precedes S2 in the 
lexical Sequence, e.g. The value of (4HBOSE «Ы.Е. 3HSEN) is „ТЕЏЕ, 


data deserve 
relationships, 
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Generic and Specific Intrinsic Functions 


In FORTRAN-IV, the name of each intrinsic function implicitly 
specifies the data type of the arguments and the result: e.g. IABS(K) 
is an intrinsic function which delivers the absolute value of the 
argument K. This argument and the value of the function will both ђе; 
of type INTEGER. AMIN delivers as value the smallest of the values of 
the arguments; the arguments and the function value are both real in 
this case. 

FORTRAN-77 permits the use of "Generic Functions" which are valid 
for all data types. In such a case, the compiler selects the specific 
intrinsic function appropriate to the data type of the arguments; e.g. 
the generic function MAX will operate as MAXO (integer MAX function) 
ог” AMAXI (real MAX function) depending on whether the arguments are of 


type INTEGER or type REAL. 


10.8.2 Alternate RETURN Points 


A CALL statement (with or without arguments) transfers control to the 
called subroutine. When a RETURN statement is encountered in the 
subroutine, control comes back to the statement immediately following 
the CALL statement. 

FORTRAN-77 permits return to various alternative points. Firstly, 
the subroutine can have several return statements; RETURN1, RETURN2 


and so on. 
Secondly, the CALL statement is of the form 


CALL MATINV (М. К, * 210, * 230, * 340) 


Here, the first few entities in parentheses are the actual parameters. 
The others which have * before them are statement numbers in the 
calling program. These specify alternative return points to which 
control can be returned. If the suoroutine exits through the first 
return, i.e. RETURN 1, it transfers control to the first return point 
іп the list. An exit through RETURN 2 causes control to return through 
‘the second RETURN point in the list etc. 


10.8.3 Alternate ENTRY Points 


A subroutine normally is entered through a single entry point: the 
first executable statement in the subroutine. FORTRAN-77 permits a 
number of entry points. The subroutine starts with a SUBROUTINE 


276 Programming in FORTRAN 


statement. This statement contains the name of the subroutine and the 
dummy parameters, e.g. 


SUBROUTINE MINIMAX (A,B,C,D) 


This signifies an entry point. A statement such as 


CALL MINIMAX (АМ,Р2,ТШ,ХА) 


transfers control to the first executable statement following the 


title statment. In FORTRAN-77, several ENTRY Statements of the 
following type are permitted: 


ENTRY ALT1 (X1,X2,X3) 


Such statements can occur at various points in the subroutine, 
Each has its own пале (ALTI in the above case) and its own dummy 


parameter list. Each ENTRY statement functions like a SUBROUTINE 
statement. 


A CALL statement can call the subroutine using the entry name and 
a suitable set of actual parameters. e.g. 


CALL ALT! (A1,A2,A3) 


This transfers control to the subroutine; not to the first executable 
statement in the subroutine, but to the statement immediately 
following the ENTRY statement bearing the called name. The actual 
parameters А1, А2 and АЗ are assigned to the dummy variables 
mentioned in the ENTRY statement (not in the SUBROUTINE statement). 


10.8.4 Variable Dimensions for Arrays 


It is possible (in FORTRAN-IV) to use variables if array dimension 
declarations in subroutines. These variables have to occur as dummy 
parameters in the SUBROUTINE statement. Values are assigned to them by 
the actual parameters in the CALL statement, 

This facility continues in FORTRAN-77, In addition, it is 
possible to use an asterisk te specify the array size in a DIMENSION 
Statement іп а subroutine, This causes the subprogram array to have 
the same size as the corresponding array in the calling program. 
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10.8.5 Saving of Variables 


The ‘variables used in a subprogram normally lose their values after 
control returns to the calling program. This is because the memory 
locations assigned to the subprogram are released when the subprogram 
is not active. The statement SAVE saves all variables used in the 
subprogram while a statement such as 


SAVE (A,B,C,/ABLOCK/) 


saves the named variables and common blocks. The common blocks named 
must be enclosed in slashes. 


10.8.6 Use of Intrinsic Functions as Arguments 


Subroutine and function names can be used as arguments in CALL 
statements іп FORTRAN-IV. This requires the use of the EXTERNAL 
statement which lists the names of all subroutines so used, The 
INTRINSIC statement of 'FORTRAN-77 performs the same function for 
intrinsic functions, e.g. SINF, COSF, etc. 


10.8.7 Program Name 


Subprograms require names in FORTRAN-IV. This is necessary to signify 
the beginning of a subroutine or function subprogram, А subprogram 
name is also necessary to invoke the module using a CALL or a FUNCTION 
of invocation, There is no similar need to have a name for the 
hence, FORTRAN-IV does not have a provision to name the 
main program. It would, however, be desirable for all programs to have 
names by which they can be referred. A name is necessary to link a 
program with the associated flow charts, documents, etc. In FORTRAN-IV 
it is therefore common practice 
"comment" at the beginning of the program, 


in all our examples. 
FORTRAN-77 permits the 
the name e.g. 


mode 
main program; 


to have the name of the program as а 
This is what we have done 


first statement of the program to contain 


PROGRAM SPECIAL 


without the need for a "comment" denotation. 
A name, however, is optional. The BLOCK DATA subprogram can also 


optionally have a name in FORTRAN-77. 
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: BOOLEAN ALGEBRA 


A1.1 INTRODUCTION 


Boolean algebra (named after George Boole who developed it) is a 
branch of mathematics which deals with construction, simplification 
and evaluation of expressions using logical variables and constants. 

Boolean or logical variables, constants and expressions have the 
property that they can assume only two values - 1 and 0. These are 
usually taken to correspond to true and false respectively. 


A1.2 OPERATIONS 
The operations permitted are union (the .OR. operation in FORTRAN 
represented by the symbol V), intersection (the .AND. operation iu 


FORTRAN, represented by the symbol .) and negation (.NOT. operation 
in FORTRAN represented by the symbol '). These are illustrated below: 


A1.2.1 Union (OR operation) 


The Union (A V B) of two variables A and B is true if either А or B із 
true. 


а-о о 
== << 
з о ~ о 

"ou 
=. 2 оО 


Consider the FORTRAN statement 


L s (4.07. В) .OR. (C .EQ. D) 


If А is 4.3 and B is 3.2, L is .TRUE., irrespective of the values 
of C and D. Similarly,~if C and D are both 4.6, L is again .TRUE. 
irrespective of the values of A and B. 
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A1.2.2 Intersection (AND Operation) 


The intersection (A . B) of two variables A and B is true only if both 


A and B are true 


0. 0 
0.1 
1.0 
Ted 


"on 
-000 


In the FORTRAN statement 


M = (А .EQ. B) .AND.- (C .EQ. D) 


M is true only if both equality conditions are true. 


A1.23 Negation (NOT Operation) 


The negation or complement (А') of a variable A is true only if A is 


not true. 
0! 
1! 


"on 
= 


The FORTRAN expression .NOT. (A .EQ. B) is true only if (A .EQ. 


B) is false. 
From the above, we can see that 


>>о-о- 
о -— mon 
> р> р> р> > > 
"n Hn oH Hu 
—о»>—о»> 


A1.3 THE LAWS OF BOOLEAN ALGEBRA 


We can easily verify a number of basic laws of Boolean algebra, e.g. 


А.А = AVA = A (the idempotent law) 
АВ = Be A (the commutative law) 
AVB = BVA (the commutative law) 
® „ Bau) = (А.В) . С (the associative law) 
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AV (BV C) (А V B) V С (the associative law) 
A UB VIA: s Q = А. (ВУ С) (the distributive law) 


(AV В) ПА РО = дув. с (the distributive law) 
A . (AV B) = А (the absorption law) 

AVA.B = А (the absorption law) 

A. (à! V B) = А.В 

А Ү.А". В =AVB 

git =A 


The exhaustive verification of a relationship in Boolean Algebra 
is straightforward when the number of variables is small, 
variable can assume only two values. In fact, 
equivalent to proving the relationship. 


Ап important relationship in Boolean Algebra is De Morgan's 
theorem which states 


since each 
such verification is 


(A.B)! = A'VB' 
(А У В)" = А' ,В' 


We can use De Morgan's theorem to see that the following two 
FORTRAN expressions have the same value, 


P EQ. Q .OR. S.LT. T 
«МОТ. (P .NE. Q .AND. S .GE. T) 


P .EQ. 0 and P .NE. О are complements of each other, because when one 
is true, the other is false. Similarly, S .LT. T and S .GE. T are 
complements of each other. 

It would be an interesting exercise to find the complements of 
all logical expressions PrQ where P and О are arithmetic variables 
and r is a FORTRAN relational operator. 


АЛ. SYNTHESIS AND MINIMIZATION OF EXPRESSIONS 


Boolean Algebra is concerned with th 
logical expressions, given their valu 
their variables, 


For example, let functions X(A,B,C) апа Ү(А,В,С) be defined as 
follows: 


е synthesis or construction of 
es for various combinations of 


A В с X Y 
0 


0 9 1 0 1 


о 
о 
о 
о 
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4-24-00 
= ақ 6) Oo == 
ао-о-о 
— з О а О 
ai OO tS = 


The corresponding expressions are 


X (A . B) V (B. C) V (С. А) and 
Y = (ХҮ (А.В. С)) .(AVBV С) 


Boolean Algebra is also useful in simplifying or minimizing such 
expressions. Such techniques aré very useful in the design of digital 
computer circuits since the internal representation of numbers and 
signals in a computer uses the binary or two-valued logic system, 

The above expressions relate, for instance, to the input-output 
specifications of a single binary adder stage in a computer (A and B 
are the two digit inputs, and C is the carry input while X is the 
carry output and Y is the sum output). Details of such logical circuit 
design are beyond the scope of this book. The brief background of 
Boolean Algebra given here is meant to provide the reader enough 
familiarity with logical expressions while writing programs in high 


level languages. 
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NUMBER SYSTEMS 


A2.1 EARLY SYSTEMS 


The origin of arithmetic can be attributed to pre-historic times when 
caveman devised a method of tallying his meagre possessions against 
the fingers of his hands. Later, the more methodical among cavemen 
Started the system of recording their counts, one for one, in the form 
of eharcoal strokes or lines on the walls of their caves. 

As life gradually grew more complex, the need arose to deal with 
larger numbers which were unwieldy in such a system. Using special 
Symbols for larger numbers probably suggested itself as a fairly 
straightforward solution to this problem, giving rise to Something 
feirly close to the Roman System of number representation. 

The Roman system, however, suffers from two disadvantages. 
Firstly, а large number of Symbols are required - two new symbols for 
every order of magnitude increase in range. (I and V for the range 1 
to 8, X and L for 10 to 89, C and D for 100 to 899 etc. The symbol 
used for 5000(VM) 10000(XM) and so on Should, strictly Speaking, be 
treated as distinct from their constituents). 

Secondly, it is very difficult to carry out even simple 
caleulations using such a System. Try, for instance, addition, 


Subtraction, multiplication or division with the numbers CMLXIX and 
XCVIII in the Roman notation! 


A2.2 THE DECIMAL SYSTEM 


А number system which solved both these problems was devised by Indian 
mathematicians and is widely known today as the Arabic System. On the 
one hand, it introduced the concept of zero (which does not exist in 
the Roman system). It also gave two values - intrinsic and positional 
- to each of its symbols. Due to these innovations there is no limit 
to the magnitude of numbers that can be represented in this system, 
even though it uses only ten symbols. Further, arithmetic operations 
become very simple and straightforward in this number System. 

Let us consider the number 2367 written in this System. Each of 
the digits occurring in this number have two values - the intrinsic 
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value which is invariant, and a positional value which depends on the 
position (units, tens, hundreds, thousands and so on) which it 
occupies in the number. While the digit 2 has the lowest intrinsic 
value among the digits of the above number, it has the highest 


positional value (i.e. two thousands). 


A2,3 RADIX-R SYSTEMS 


The number 2367 can be expanded as 2 x 103 + Зх 102 + 6 х 101 + 7x 

100, Since the positional value increases by a factor of 10 for each 
successive digit position, 10 is called the base or radix of the 
system and the system is called decimal. Considering that man has ten 
fingers (or digits) on his two hands, it is not surprising that ten is 
used as the radix. This enables him to do addition, subtraction and so 
on of individual digits on the digits of his hands. It is also no 
coincidence that the number of digit symbols (0,1,2,3,4,5,6,7,8,9) is 
the same as the radix. If more symbols are added (A and B say to 
represent 10 and 11), number representation would not be unique. 2A 
and 30 would mean the same number. If the number of symbols is smaller 
.than the radix, not all numbers can be represented (try representing 
the number 99 in a decimal system when there are only 9 symbols, from 
0 to 8). Apart from human convenience, there is nothing very special 
about the radix 10 system that we use toaay. Systems with other values 
for the radix are equally feasible. A system with radix r has to have 
r symbols and the positional value of the symbols increases by a 
factor of r for each successive digit position, In the radix r system, 


the number 


Ху ++ Хр X4 Xo 


сап be expanded аз 


п 

Xn га 
nzo 
number systems which would be of 
interest to users of digital computers are the hexa-decimal (base 16) 
octal (base 8) and binary (base 2) sy Stems. (The hexa-decimal system 


uses the 16 symbols 0, 1, 2, 3, 4» 5» 6, 7, 8, 9, А, By С, D, Е, F; 
the octal system the 8 symbols 0, 1, 2» 3, 4, 5, 6, 7; and the binary 


Apart from the decimal system, 
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system the two symbols 0 and 1. To avoid ambiguity, the radix of the 
System of representation can be Shown explicitly (e.g. (149) 


r10* 
(240,8, (101).5, eto.). 
We can easily verify that 
(TE) nag = (126) 49 = (176) „8 = (1111110), 
Table 42-1 Decimal numbers and their equivalents 
a ас аы сыншы шыл 
Hexadecimal Decimal Octal Binary 
(radix 16) (radix 10) (radix @) (radix 2) 
0 9 0 0 
1 1 1 1 
2 2 2 10 
3 3 3 11 
4 4 4 100 
5 5 5 101 
= 6 6 6 110 
T T T 111 
8 8 10 1000 
9 9 11 1001 
А 10 12 1010 
10 16 20 10000 
14 20 24 10100 
18 24 30 11100 
20 32 40 100000 
28 40 50 101000 
30 48 60 110000 
32 50 62 110010 
38 56 70 111000 
40 64 100 1000000 
46 70 106 1000110 
48 T2 110 1001000 
50 80 120 1010000 
58 88 130 1011000 
5A 90 132 1011010 
64 100 144 1100100 


a ol 
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Table A2-1 lists some decimal numbers and their equivalents in the 


binary, octal and hexa-decimal systems. It will be noted that as the 
radix size decreases, the length of the word increases. 


A2.) CONVERSION OF NUMBERS FROM ONE SYSTEM TO ANOTHER 


Let us take the example of converting*(1731 dng into decimal notation 
and (9717-10 into the octal notation. 


By definition, 


(4731)pg = (4 x 83 + 7 x 82 + 3 x 8' + 89% 


(2048 + 448 + 24 + 1)n49 


(2521) „10 


For converting (971),10 into octal notation, the number has to be 


expressed as a series of the type 
n 
Day ei 
iso 


wnere each a is less than 8. This сап be done by successive divisions 


with 8. 
Thus, 


(971) до = (121 x 8 + 3)n10 
= ((15 x 8 + 1) х 8 + З)р10 


= (((1х8 + T) x 8 + 1) х 8 + З)р10 


AG хаз+тх®8 2128) $22 59 


= (1713) ng 


Similar methods work for conversion of fractions from one systèm 
to the other. The reader might, as an excercise, try conversion of 
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proper and mixed fractions (Note: (0.1) 16 = (0.04),.g = (0.0001) „> = 


(0.0625) 10; also (0,1), 10 = (0.000110011001100 1100, ..) >, а 
continuing fraction; this means that (0.1) 


г10 has no exact binary 
equivalent). 


A2.5 THE BINARY SYSTEM IN DIGITAL COMPUTERS 


The binary system, with only the two Symbols 1 and 0, is very 
convenient for the representation of numbers in a computer. This is 
because most electronic digital devices are bistable, i.e. they have 
two possible stable states in which they can exist. For example, 
Switches or relays can be on or Off, transistors can be conducting or 
eut off and current can flow and magnetic material can be magnetized 
in one of two opposite directions, These can therefore conveniently 
represent the binary states 1 and 0 respectively, 

A digit in the binary system is called a bit (for binary digit). 
The word length of a computer is commonly measured in bits. A computer 
whose word length is n bits can represent any number which is less 


than (21-1), since 21 is 100 1081 2, word lengths of n bits and 0.3 x 


n digits are roughly equivalent (108192 = 0.301 approx.). 


The addresses of memory locations are also represented as binary 
numbers; the memory capacity (total number of locations used) is 
consequently measured in units which are powers of 2. The most common 


unit is 1024 or 210 which, due to its closeness to 1000, is called 1x, 
(a memory capacity of 32K means a total of 32,768 memory locations), 


power of 2 which is close to 10. For this reason, oc 


binary to octal notation is very simple. Since 8 = 23 
involves is converting each group of three bits i 
into its octal representation [e.g. (101110011) 


; all that this 
n a binary number 
pg = (563) 8). The 


reverse transformation is equally simple. 


applicable for hexa-decimal to octal convers 
would be 4 bits in length). 


A similar method is 
ion (here, each group 
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The octal system uses only a subset of the decimal numerals. The 
stem requires sixteen numerals and needs ‘six additional 


hexa-decimal sy 
The octal system is therefore 


special symbols to accommodate these. 


more widely used. 


Decimal numbers are represented in some computers using the 


binary-coded-decimal (BCD) system, where each decimal digit is 
represented as the corresponding 4 bit binary equivalent (e.g. 9476 is 
1001010001110110). Conversion from decimal to BCD.and vice versa can 
be done digit by digit. This is accomplished by hardware encoders 


and decoders in the input or output device itself. 

Conversion between BCD and binary notations can be done using 
only the binary system, and hence it can be done within the computer 
itself; e.g., consider the decimal number 947 and its BCD equivalent: 


9u7 = (1001 0100 0111) Вер 
= (1001 x 101010 + 0100 x 1010! + 01113,2 


29x 109 + 4 x 10 + 7 


= ((1001 x 1010 + 0100) x 1010 + 0111) р 
= (9 х 10 + 4) x 10 + 7 


= ((1011010 + 0100) х 1010 + 01112,2 


= (90 + 4) x 10.+ 7 


= (1011110 x 1010 + 01112,2 = (94 x 10 + Т) 
= (1110101100 + 0111)p2 = 980 +7 
= 947 


' 


= (1110110011) .2 


e 
Appendix 3 


THE ASSEMBLY LANGUAGE 
AND ASSEMBLERS 


A3.1 INTRODUCTION 


In Chapter 1, we considered а few examples of programs written in the 
machine language of a hypothetical computer. Writing programs in such 
a language is inconvenient because 


(1) the instruction codes, being numeric, are difficult to 
remember and 

(2) the addresses of the memory locations (where operands and 
instructions are Stored) are also to be Specified in 
absolute numeric values. 


As a consequence, it is difficult to read ana follow a machine 
language program. 

The assembly language of a computer provides a means for the 
programmer to write a program at the machine language level without 
these inconveniences, It offers the facility of writing machine 
instructions ina mnemonic (easy to remember) alphabetico code (e.g. 
LDA for 1оаа accumulator, ADA for add absolute, etc.). Addresses of 
memory locations can be referred to symbolically (by means of names, 
e.g. START, MARK) rather than as absolute numbers, rendering them more 
readable. Also, programs written in the assembly language can be 


located anywhere in the memory, rather than at pre-determined 
locations. 


A3.2 АМ EXAMPLE 


An assembly language version of the program of Example 1-3 is listed 
in Table A3-1. The alphabetic code for each instruction indicates the 
operation to be performed. The addresses of locations where operands 
and instructions are stored are Specified by symbolic names A, B, TWO, 
STRT, etc. Only those instructions which are referred to by other 
instructions need be labelled. Constants can be stored by using a 
labelled psuedo-instruction LDC (for Load Constant) of the form: 


XYZ LDC 2.346 


ОЕЕО 
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This eauses the constant specified to be stored in the memory location 
XYZ; this can, therefore, be used as an operand for an instruction 
whioh refers to the symbolic address is XYZ. This provides a facility 
of dealing with constants which is not available in the machine 
language. А pseudo=instruction is a mnemonic code for which there is 
no corresponding machine instruction, It causes the operation implied 
by the pseudo-instruction to be accomplished at assembly time itself. 


Table A3-1 Example of an Assembly Language Program 
аана ааа 


Label Operation Address/ 
Operand 


—————————————————— 


STRT RDM A Read a number from paper tape and store 

in symbolic location A of the memory. 

RDM B Read a number from paper tape and store 

in symbolic location B of the memory. 

RDM c Read a number from paper tape and store 

in symbolic location C of the memory. 

TRA A Transfer the contents of location A 
into accumulator, 

SUB B Subtract the contents of location B 
from accumulator. 

MPY 6 Multiply the contents of accumlator 


with those of location C. 


STA A Store the contents of accumlator in 
location A. 

PRT A Print contents of location А. 

JPN STRT Jump оп negative (accumulator) to 
location STRT. 

STOP 

END 


the assembly language codes for the 


The machine lan; е and 
= ae pothetical machine are listed in Table 


instruction repertoire of the hy 
АЗ=2. 
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Another facility available at the assembly language level is that 
of defining a MACRO - a sequence of instructions for performing a 
desired operation bearing a пете with the word MACRO preceding it 
(MACRO ХҮ2,зау). Wherever this operation is desired in a program, the 
MACRO name сап be used. This mame is replaced by the full sequence 
of instructions during assembly. 


A3.3 THE PROCESS OF ASSEMBLY 


The process of assembly of a program written in an assembly language 
is illustrated below (in a simplified manner) using the assembly 
language program cited earlier. 

The process of asseubly is performed in two stages or passes, The 
first pass is used to define the symbols and literals by scanning each 
instruction. This helps to define the length of tne instruction (some 
uachines permit variable length instructions which occupy one, two or 
sore паспіпе werds; the hypothetical machine considered in our example 
has only single word instructions). Such scanning helps to assign 
meuzory locatiens for each instruction. One can start from an arbitrary 
location, say 1000; this automatically defines the value of the symbol 
START аз 1000 (assemblers yield relocatable programs which сап be 
loaded in any part of the memory; for simplicity, we shall assume that 
the assembled program is always stored in a fixed area of memory). If 
any pseudo-operations exist in the scurce code (there is none in the 
example), а count is kept of the lengths of the corresponding 
sequences of instructions and the memory locations needed for this 
are assigned to пеп. 

Onee the scanning of the instructions is completed, the total 


required for the program is known; then the succeeding locations 
to the constants or 'literals' which have to be converted 
internal representation. Subsequent locations 
are assigned со the variables used in the program, if апух 

This process generates a symbol table establishing the corres- 
pondence between tne instruction labels, symbols and literals used and 
the memory locations assigned to them. In our example, since the 
program cecupies 10 locations from 1000 to 1009, the variables А, B 
and © сап be assigned locations 1010, 1011 and 1012, The symbol table 


space 
are assigned 
iato tne corresponding 


will be: 
ayubo iemory Address 
STRT 1000 
A 1010 


b 1011 
C 1012 
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The next pass substitutes the machine codes for the assembly 
language instructions, the memory addresses for the symbols and the 
binary equivalents for the literals, Pseudo-operations are substituted 
by the corresponding machine instructions, This completes the 
conversion of the assembly language program into the machine code, 


Appendix 4 


THE PROCESS OF COMPILATION 


A4.1 INTRODUCTION 


Compilation consists in translating a program written in a high level 


language into an equivalent program. in machine language. This is done 


in five stages: 


(1) lexical analysis where the basic elements are recognized; 

(2) syntax analysis where the various syntactical entities are 
identified and individual statements validated; 

(3) conversion into а suitable internal form after interpreting 
the meaning; 

(4) storage allocation; and 


(5) object code generation. 


These are described in the following paragraphs. 


АЦ.2 LEXICAL ANALYSIS 


In this step, the source program is scanned character by character and 
separated into individual entities or tokens. This is straight-forward 
because these are separated by spaces, delimiters and operators. The 
following is an example of a lexically analyzed statement, where each 


element is underlined separately. 


WEIGHT = (А ~ B) * DENSITY 


These elements are also recognized as identifiers (variables), 
literals (constants) and terminal symbols (operators, key words and 
delimiters), These are then converted into а 'string! of symbols where 
each symbol consists of a class indicator and an address ог pointer. 
The pointer designates the portion of memory where the element is 
stored. Table Ali-1 shows the manner in which this is organized. 


y 
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Zable 41-1 An Example of a Uniform Symbol Table 
a м лыы акысы л йыш 


Class Pointer 


I DIL i c TNR 


IDN address 
TRA address 
TRH address 
IDN address 


specifying the location 


specifying 


the 


location 


specifying the location 


specifying 


the 


location 


1t сап be seen from Table Al-1 that though the elements are of 
unequal Јепљба, the symbols of the string are of uniform length since 
they contain only a label and an address for eacn element, 

Invalid characters, incorrect identifiers and other errors are 


detected at this stage; comments are 


Alh.3 SYNTAX ANALYSIS 


In this phase, the compiler recognizes individual stat 
basis of the earlier identificatio 


Consider the following FORIRAS statement: 


IF (A „СТ. B) GO TO 12 


This can be recognized as a key w 
expression, followed by а valid 


word and a statement number, 
statement, 


ignored, 


ements on the 


n of the basic elenents or tokens, 


ord (IF) followed by a valid logical 
Statement consisting of a (GO TO) key 


1% can thus be recognized as a logical IF 


At this stage, Syntax errors, 
compiler proceeds with further processing, 


44,4 SEMANTICS AND INTERNAL REPRESENTATION 


fach of the valid statements nave to be assig 


if a 


be converted into the object prozram, 


throush the intermediate step of converting these Statements into an 


пу, are 


detected and the 


Searching for other errors, 


This is 


internal representation, An appropriate subprogran 


ned meanings and have to 


done after going 


accomplishes this. 
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Weight р 
the sum of ~ 
B 
the sum of and 
Replace by 
2:5 
! 
the product of and А 
the sum of and 
B 
the difference of and 
E12 


Fig. A4-1 Internal Representation of Assignment Statement 


Fig.-A4-2 Graphics Form of Internal Representation 
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Example A4-1 


Let us consider the following arithmetic statement: 


WEIGHT = (A+B+2.3) * (A«B-E12) 


The internal. representation of this Statement is shown in 
Figs. Al-1 and АЦ-2 ina Braphie form and in Step-by-step form in 


Table 44-2. Control Statements such as GO TO are also similarly 
represented. 


Table А4-2 Sequence of Operations Required to be Performed 
for the Arithmetic Statement in Example 44-1 


Operator Operand 1 Operand 2 Result 


* A B M1 
$ M1 2.3 M2 
25 А В M3 
= M3 E12 M4 
* М2 M4 M5 
S WEIGHT M5 

rc: Hc 


= 


Non-executable Statements such as t 
Statements do not get 


representation, is entered into tables 
that are used in Subsequent stages. 

Going through such an intermediate re 
essential; it, however, Simplifies optimiz 
It also marks the logical line of Separ 
independent and machine dependent phases o 


converted into equivalent 


presentation is not Strictly 
ation of the object program. 
ation between the machine- 
f compilation, 


AH.5 STORAGE ALLOCATION 


Allocation of memory locations to individual var 


lable names is done by 
constructing a table of the form shown below. 
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Table A4=3 Тһе Symbol Table 


pisans we ansast ssie meine e 


Name Type Precision Number of elements Address of storage 
(for arrays) location allocated 


лымы аца harmana RR шый REN 


WEIGHT REAL SINGLE 1 0 
А REAL SINGLE 1 1 
E12 REAL SINGLE 1 2 


ПЕЋ аллайын дейс atate Hd. ный dg ca tel etes pie 


In Table A4-3 double precision variables (if declared in the type 
declaration statement) would have been allocated 2 locations each. 
Arrays would have been assigned an appropriate number of locations 
depending upon their size. This information is available from the 
DIMENSION and type declaration statements. Storage is also allocated 
for intermediate variables (such as М1, M2, ete.) and for the 


constants involved in a program. 


A4.6 CODE GENERATION AND OPTIMIZATION 


easily be seen that each row in Tabie All-2 can be translated 
into an appropriate machine instruction, The reader might try this for 
the earlier example. The code so generated may, however, be wasteful: 
there might be redundant operations (e.g, the same operations 
performed on the same operands, yielding the same results, more than 
once). This happens when the same expression occurs repeatedly ina 
statement. 

їп such cases, two or more rows in Table Al-2 would be identical 
(in this case, the 1st and 3rd rows). А11 but one of such identical 
entries can be deleted and the table may be altered appropriately. 
Optimization of this type сап be carried out independently of the 
computer used. Other types of optimization are also possible: e.g. if 
there аге expressions where all operands are constant, such 
expressions can be replaced by their computed values; if there are 
loops containing computations ОП invariant operands, these 
computations сап be moved out of the 100» There is scope for another 
type of optimization, This would invoive exploiting facilities, if 
any, in the computer, For example, operands listed in each of the 
rows of Table Al-2 are located in the memory. The results of such 


It can 
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operations have also to' be Stored back in the memory. Each 
intermediate result, therefore, has to undergo a two- 
between the arithmetic registers and the memory. Th 
as far as possible, arithmetic registers rath 
аге used for storing intermediate results. The exact manner in which 
this can be achieved would, of course, vary from machine to machine, 
Such optimization is carried out during object code generation, 

The assembly language program so generated by the compiler is 
converted into machine code during an assembly phase: all the 
Mnemonic machine instructions and names are replaced by the 
corresponding codes, symtolic addresses are replaced by absolute 
addresses, пасгса аге replaced by the corresponding instruction 


Sequences, eto. These steps have already been discussed in detail in 
Appendix 3. 


way transfer 
is can be saved Af, 
er than memory locations 


Appendix 5 


MULTIPROCESSING, 
MULTIPROGRAMMING AND 
TIME SHARING 


A5.1 INTRODUCTION 


In earlier computers all operations connected with information flow 
between the various subunits were coordinated centrally in the control 
unit. These operations took place strictly sequentially. This led to 
inadequate utilization of resources and wastage of time, The main 
the disparity of speed between the (electromechanical) 
peripherals and the (electronic) central processor. 

Decentralization of control was introduced in later computers, 
This achieved concurrency between computation and input-output on the 
one hand and between several peripherals on the other, Other types of 
parallelism have also teen realized, These relate to: (а) the 
apparently simultaneous processing of several jobs on a single system 
(multiprogramming), (b) simultaneous operation by several processors 
on one or more jobs (multiprocessing) and-(e)-Simultaneous utilization 
of a computer system by several users in an interactive mode (time 
sharing). These. three aspects are briefly covered in the following 


sections. 


reason маз 


A5.2 BATCH PROCESSING 


invariably, single user systems, The 
stem which was dedicated to him on an exclusive 
test and modify his programs on-line, The display 
d PAUSE instructions in FORTRAN and the 
OBOL are intended for such use, If, in the 
process, he kept the machine idle, the price paid was not very high 


sinoe the systems were small and usually not heavily booked, 
With the advent of large and complex computers, the single user 


System became а luxury which was no longer practical, machine time 
being expensive. Even the overheads and wastages involved in loading 
Single programs became considerable; such systems меге, therefore, 
operated in the so called batch processing mode where а number of jobs - 
. аге stacked together and loaded at one time, The system processes them 
sequentially and gives out results in sequence. After one batoh of 


The early computer systems were, 


user operated the sy 
basis. He could run, 

flags in the STOP an 
DISPLAY «UPON CONSOLE in C 
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jobs is executed, the next batch сап be loaded and so on. This is the 
batch processing mode of operation, 

A drawback of this mode of using a system was the turn around 
time - i.e. the delay between the time the job is turned in and the 
time the results are available. This could vary from a few hours to a 
day or more. 


А5.3 MULTIPROGRAMMING 


Imbalances in. the speed of operation of the different subunits of a 
· computer may result in the faster units getting held up due to delays 
in the slower ones. These imbalances can, to a certain extent, be 
compensated for by arranging for a number of Slower units to operate 
concurrently, time sharing the faster ones. А typical example of 
this strategy has been used with advantage is time Sharing of the main 
memory between concurrently operating peripherals. Parallel operation 
of several independent memory banks serving a fast Processor is 
another. Such operation achieves а more or less even distribution 
of activity between different units. It also prevents long idle 
periods for individual subsystems. 
Such a distribution can, however, 
extent in a computer which is running a Single program. There are 
several reasons for this. Programs are, by and large, organized 


program. Further, most programs tend to lo 
For example, scientific programs load 
business: data processing is predominantl 
this limited Optimization (that cone 
devices offers) can be realized only 
effort on the part of the programmer, PL/1 is a high level language 
which, for instance, permits the pro 
parallel. 

If, on the other hand, a number of programs of various types are 
simultaneously run on a System, there would be greater scope for 
better utilization of subsystems and even distribution of work loads 
between them. This strategy can improve computational efficiency by as 
much as a factor of two. К 

A straightforward method of doing this would be to assemble parts 
of different programs in such a way that the duty factor of individual 
subunits is maximized, If a program initiates input or output activity 
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and has to wait for its completion, it can be followed by a part of a 
second program which does not require the same equipment. Such жене 
interlacing, however, poses several problems. The run time. behaviour 
of a program is often data Gependent. It is also difficult to predict 
the run time response of peripherals and tne time taken for other 
operations. Furtner, tne modification or elimination of a single 
program in a group throws the entire system out of balance 
necessitating complete reorganization, It would thus be desirable Бо 
use а supervisory program to effect tnis organization dynamically and 
automatically at the actual time of execution. This can run 
h the job programs. Тһе supervisor program can 


concurrently wit 
execution time and other available service 


allocate memory space, 
facilities to individual programas. 

Several vrograms reside in the memory of such a multiprogrammed 
computer and avait execution, At any one time, the central processor 
is engaged in execution of instructions from only one of them; it, 
however, switches control from one program to another whenever an 
old up can be avoided by doing so. Only small segments of 


equipment n 
а time, the computer seemingly operating 


such progra ns get executed at 


on these in parallel. 
Іс would be impractical to nave to specially write programs to 


an environment . Tae processor and the supervisor have, 
to бе so organized as to be able to operate оп any 
uires certain machine facilities, enumeration of 


run in such 
therefore, 
prograus. This req 
which is beyona cur scope. 


5,4 TIME SHARING 


When a computer allows the running of several programs, some or all of 
which run under direct user control fron individual on-line consoles, 
a "tise sharing" mode. A time shared 


it is said to be operating in & 
computer has а number of consoles from which instructions oan be 
issued and programs fed; it attends to them sequentially, but does 


tnis so fast that the individual users get virtually instant response. 

This provides tne user the advantage of operating the machine in 
an interactive mode, Such 8n interactive facility is of considerable 
advantage in program development and debugging. The early single user 
machines provided this advantage but the later and more expensive 


batch systems could not. 
When the user attemp 

operating the key board, the system 

and enters an interpretive progranm. 


ts to communicate with the machine by 
interrupts its current activity 


This program examines the message 
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communicated by the user and determines the type of attention 


required, e.g. compile and execute a sequence of instructions in а 
programming languase, data input or Output, transfer of information 
from one storage medium into another, execution of а Program which is 
already resident in the machine, eto. In each case, tne interpretive 
program initiates the appropriate sequence of actions. 

It is important to ensure that the waiting time for each user 
oetween his request and machine response is minimal. Each user is, 
therefore, allowed only a short burst (a small fraction of a second in 
duration) of computational activity at a time and is serviced ina 
period of time which is not long compared to the human reaction time 
(about 1/10th of a second), 

cehaviour of the system at or near saturation load is an 
important factor in the design ог the system. The approach followed is 
that of graceful degradation rather than an abrupt апа complete 
breakdown under such conditions, 


5. Time sharing, on the other hand, 


з end and maintains computer 
tem utilization, 


profitable. Such a concurrent op 
processing load for each program is quite high, 


number of processor 
they can operate in а 


ory units, peripheral 
units and other subsystems and devices, 


Multiprocessing operation permits highly efficient parallel 
processing at several levels. It involves the use of several 
processing units which can work jointly on a common program or 
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severally on different programs. Reliability, expandability and 
economy result from their modular organization and high utilization 
rate. The system remains serviceable even if some processors fail; the 


only effect is a reduction in efficiency. 
Assignment of facilities to tasks, loading of programs, 
Monitoring of 1/0 activity and routine checking of systems are taken 


care of by the operating system. 


Appendix 6 


STRUCTURED PROGRAMMING 


A6.1 INTRODUCTION 


Digital computers are, in general, sequential in operation - the 
operations performed by them are carried out one at a time; the end of 
one operation initiates the other. Consider a complex task which can 
be decomposed hierarchically into a number of simpler subtasks (e.g. a 
large program into a number of subprograms, a program module written 
in а high level language into a number of individual statements er a 
machine language program into a sequence of machine instructions). 
These are executed in the order in which they are listed. There is, of 
course, a transfer of control facility. The conditional and 
unconditional GO TO and IF statements are used for doing this in high 
level languages. The conditional and unconditional jump 
in machine language have the same effect. 
and junctions in the flow chart. 

By virtue of this facility, а flow chart of any level of 
complexity of structure can be implemented as a computer program. The 
complexity and difficulty of testing a program increase? exponentially 
with the number of branches and junctions in the flow chart. Also, 
the task of systematically testing the behaviour of programs becomes 
unmanageable for any but the smallest of programs due to the 
combinatorial explosion. It therefore becomes necessary to impose some 
restrictions on the types of structures or interconnections permitted 
in the flow chart (i.e. the types of control transfers permitted 
between different program modules). Structured programming concerns 


itself with a study of this and related aspects of implementing and 
validating programs in a systematic way. 


instructions 
These give rise to branches 


A6.2 PERMITTED STRUCTURES 


The simplest type of structure that can be implemented in a flow chart 
is a number of boxes that are sequentially connected to each other. 
(Fig. A6-1). 

The logical IF (of FORTRAN) provides a type of branching where a 
Specified action is executed or skipped depending on whether a given 
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condition is specified (Fig.A6-2), The if... then... else... statement 
of ALGOL provides for two alternatives, either of which is performed 
depending on whether the test condition is Satisfied (Fig. 46-3). The 
case statement of PASCAL provides for multiple choice (Fig, 6-1), In 
each of these cases, the alternative Paths rejoin into a single path. 


Is 

condition 

satisfied 
? 


Fig. A6-3 The "if <condition> then «statement 1» 


else <statement 25" structure 


Looping is another important facility which is necessary if a 
Specified subtask has to be performed a varying number of times. The 
, While ... do... апа the until ... до... constructs of ALGOL and 

PASCAL provide this facility. The while construct causes the condition 
to be tested each time before the operation in the loop is performed 
whereas the until construct causes the test to take place after the 
operation in the loop is completed, 

This provides us with three methods for implementing more complex 
structures out of Simpler ones: concatenation, selection and 
repetition. Confining oneself to this restricted topology has several 

' advantages. An important feature of all these is that the number of 
entry and exit points do not multiply: each of the structures has a 
single entry and single exit. This avoids the combinatorial explosion 
while testing the modules for all possible input and output 
conditions, The effort involved in understanding, testing and 
validating such programs would increase linearly with the length of 
the program rather than exponentially, 
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statement 1 statement 2 


tatement 1»;«statement e». 


Fig. A6-4 The "case i of (4s 
«statement n»)" strucutre 
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condition 
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ment?" structure -until<eondition>" strucutre 
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Programs written using oniy coneatenation, selection and 
repetition can be implemented in a very simple manner, Each box in the 
structure can be implemented as a sequence of statements (a block, in 
a block structured language); the biocks are then simply linked 
together using the appropriate control statements, The correspondence 
between pieces of code and parts of the flowchart is direct and 
straightforward, 

A further advantage is that this helps to characterize the 
progress ог status of computation using a conceptual, straightforward, 
programner=independent coordinate system : one index to specify which 
of the several sequential block. is being executed, a second index to 
dencte which of the several alternative paths has been chosen (in case 
of a multiple branch situation) and a third to denote the current loop 
count (in case of a repetitive block). Considering that each of the 
boxes in the structure can be hierarchically composed of similar 
structures ‘e.g. Sequences or repetitions in a selector box, nested 
loops, etc.), опе might need a hierarchy of indices, The simplicity of 
the structures helps to keep the problem tractable, This implies that 
the correspondence between the course of computation (in time) and the 
structure of the program (in space) also becomes simple, 


Appendix 7 


AN INTRODUCTION TO 
NUMERICAL ANALYSIS 


A7.1 INTRODUCTION 


s of scientific study consists in 


An important aspect of several area 


(a) determining (usually 
(independent) parameters 
values of other (depen 
relationships that these bear wit 
this process involves approximations. 


of a physical 


by measurement) t 


dent) parameters b 
h the independent ones. 


he values of certain 
‚ and (b) computing the 
у making изе of the 
Each step of 


systen 


ery process of measurement is 


(1) In all physical systems, the v 
approximate. 

(2) Most parameters that are of interest to из in the 
physical world assume values over a continuum. The digital 
computer, on the other hand, is constrained to represent 
these values as numbers, using а finite number of digits 
The values used (in the computer) are therefore 
approximations of the actual ones. ' 

(3) Even some of the constants used for ccmputations are 
approximate. Numbers such as Pi and the square root of 2, 
for instance, сап be represented only approximately 
numerically. 

(4) The relationships that are used to calculate the values 
of still other parameters are again very often 
approximate. 

(5) The calculations themselves might be ppproximaso. The 
results of computations such as division by 3 or T d 
only be expressed approximately, due to the a 
of rounding off the result to a finite num 
digits. 

To i ms involved, let us, for instance, 
consider € eei dts n of the computation of the area of 
8 Sector which subtends an angle of 60 degrees at the center о a 

steps, each of which introduces 


?ir 
cle. This involves three 
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errors: measuring the radius of the circle (measurement error), 
computing its area (error due to the value of pi) and (from this) 
computing the area of Ње sector (error due to division by 6). 

Such errors are unavoidable in numerical computations. One has 
therefore to be very careful in using computers and ensure that these 
do not reach unmanageable proportions. Techniques of manipulating 
entities (such as integration and differentiation) of continuous 
mathematics are not directly applicable for such problems of discrete 
mathematics, А 

Numerical analysis із the branch of mathematics that concerns 
itself with techniques Рог manipulating discrete numbers and with the 
errors involved therein. We shall, in the next few sections, give a 
brief introduction to the principles of numerical analysis, Lengthy 
treatises have been written on this subject and it is not possible to 
do justice to it ina few pages. The objective here is merely to give 
the student an introduction to the subject by presenting some of its 


salient aspects. Standard text books may be referred to for more 
details, 


AT.2 ERRORS IN REPRESENTATION OF NUMBERS IN A COMPUTER 


As explained earlier, the word length of a computer is the number 
of digit places available for representing numbers in it, This being 
fixed, it is not always possible to represent values accurately in 
the machine. Often, numbers are therefore represented in computers 
as approximations of their actual values. As we have already seen, the 
processes of measurement апа computation introduce errors of 
their own, For these reasons, the inaccuracies in the numbers 
represented in the computer may appreciably excceed the inaccuracies 
inherent to the machine itself. If this happens, the last few 
digits of the number would be іп error and become irrelevant; 
only the first few would be 'significant'. It is important that 
the programmer know the number of significant figures in any 
value that he is dealing with in a computation, In fact, to 
avoid confusion and errors of interpretation and computation, it 
is desirable (at appropriate stages in the computation) to retain 
only the significant figures and discard the insignificant 
ones, (Note that the number of significant figures ina number 
is not the same as the number of digits used to represent it. For 
instance, the number 0.000361 is represented using seven digits, 
but has only three significant figures, 361.) 
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A7.2.1 Truncation and Round-off 


Two methods are available 
and rounding off, Trunca 
superfluous digits and re 
an error, The absolute val 
the digits so discarded. Fo 
significant figures, the n 
truncation error would b 
Rounding off also e 
with least possible error: 
more than or equal to 
is added to this place 
half a unit, In the ealier 
is 0,00006792. This amounts 
significant place (i.e. 
significant place and the r 
It is easy to V 
error introduced bY 
is always either le 
limit on the error 
error in truncation. 


na 
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a quantity than absolute error, Percentage error is relative error 
multiplied by 100. 


AT.3 ERROR PROPAGATION IN COMPUTATION 


When the values used in a computation are in error, there will be an 


error in the result too. Let us see how errors propagate in 
computation, 


Addition: In the case of addition, the absolute error in the sum of 
two or more numbers is the algebraic sum of the absolute errors in the 
individual numbers. If several numbers are being added, it would 
therefore be meaningless to retain in the sum a larger number of 
decimal places than there are in the least accurate number among the 
addends, If this has n digits, it is adequate if all the other numbers 
being added are rounded off, retaining only n+1 digits. This ensures 


that the error in their sum does not extend to the nth digit or 
beyond. 


Averaging: The average of several numbers of equal 
be more accurate than the numbers themselves, It is 
why. Roundoff errors, being positive аз well 
to cancel each other out during addition. 
sum of n numbers therefore remains about the Same as that of the 
individual numbers, The process of division involved in 
averaging reduces this absolute error by a factor of n. Even 
here, there is по harm in rounding off each of the numbers as in 
the сазе of addition. It would be necessary to perform the 


computation to one more decimal place than the least significant 
figure, 


accuracy can 
easy to see 
аз negative, tend 


Subtraction: During subtraction, the absolute error in the difference 
of two numbers may be equal to the sum of the ind 
in the numbers themselves (this happens when the abs 
the two numbers are of opposite sign). This means that errors can 
accumulate during subtraction, The magnitude of the result 
(difference) would, on the other hand, decrease, 
subtraction causes the relative error to increase, 

danger (when the two numbers are nearly equal) of s 
at the left being lost during subtraction (e.g. 

854: the answer is 5; this may be in error by 1; i 


of significant figures and the consequent build u 
might 


ividual errors 
olute errors in 


Consequently, 
There is even the 
ignificant figures 
subtract 849 from 
„е. 20%1). This loss 


Р of relative error 
make the computed result practically useless, This is one 


The absolute error in the 
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of the greatest pitfalls that must be avoided at all costs, It 
would therefore be desirable to ensure before subtraction that the 
numbers are accurate enough. Where this is not possible, it would 
be desirable to transform the expression into an equivalent one that 
does not involve subtraction. 


Multiplication: In the case of multiplication, there is no simple 
relationship between the absolute errors of the factors and of the 
product. The relative error of the product will be equal to the 
algebraic sum of the relative errors of the factors (verify). Absolute 
error can be computed by multiplying the relative error and the value 
of the product, Since relative error adds up during multiplication, 
there is no point in representing some of the factors much more 
accurately than the others. The more accurate numbers can be 
rounded off. They should ofcourse retain (atleast) one more 
significant figure than the least accurate factor (else, the errors 


therein would add to the overall error). 


Division: In the case of division, the relative error in the 
quotient of two numbers is the algebraic sum of their relative 
errors (but the maximum error is equal to the arithmetic sum of 
the two; verify if this is true for multiplication also.) 


Exponentiation: The relative error in the nth power of a number is 
rror of the number, Similarly, the relative 


n times the relative e : 
error of the nth root of a number is 1/n times the relative error of 


the number, 


error in the logarithm of à number is 
error of the number, Consequently, 
be many times the error in the 
essential to make sure, before 
that the number is as accurate as 


The absolute 
less than half the relative 
the error in the antilog may 
logarithm, It is therefore very 
taking the antilog of a number, 
Possible, 


Summary: It is now clear that the results of most computations 


are less accurate than the operands used in the computations: in 
important to be aware of the 


general, errors accumulate. It is 
Precise extent of this accumulation of errors during computation, 


Table A7=1 summarises these. % 
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Table AT-1 Buildup of Errors in Computation 


Number of 
| Significant figures 
in Operand 1 


Number of 
Significant figures 
in Operand 2 


Number of 
Significant figures 
in result 


Number of 
Significant figures 
in Operand 


Number of 
Significant figures 
in result 


n-1 


Gf k, and ко, 


the first significant 


figures of op 1 and op 2.are greater than 2) 


п-2 
(if Ка ог к = T 


Powers and 


roots 
(r'th root) 


if k is the first Significant figure of the 


operand and if the number contains more 


than 
one significant figure different from Zero 
and 
if p <= к if rk >= 10 
n n-1 
Xf p m 10 К if rk « 10 


п=2 п-1 
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Couputation: Logari this 
1 
Number of 
Significant figures 
in Operand 1 n 
Absolute error . 1 
in result ланги 
Nik. 1057 

it k is the first significant figure of 

operand 
——— c — e  — «== ша а= и кз өө ше dd gp im oem == em e em mtn н m e — «ее кен — e À e — 
Couputation: е7 Апі log ` 
Nuinoer of пе! ) 
Significant figures if log to base 10 is not in error by more 
in result than 2 units in the m'th decimal place 


Evaluation of Complex Expressions: It is possible to compute the 
accuracy of a computed expression, given the accuracies of I 
operands, Conversely, given the desired degree of accuracy of the 
Pesult, it is also possible to determine the level of тешеру 
required in the operands. Such calculations are very essential whi us 
doing numerical operdtions. on а computer. If this aspect is not раја 
adequate attention, “there is every danger of obtaining a result which 
18 at best very inaccuarate and at worst totally meaningless. 


АТ.Ц INTERPOLATION y 


Rather than calculate the values of frequently. required functions such 
as trigonometric funtions and logarithms as and when needed, it is 
common practice to store them in the form of tables which can be 
perdis to whenever required. The problem, however, is that such 

ез can store values of functions only for a finite number of 
Values of the arguments(s) or independent variable(s). Interpolation 
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is the process of computing a function from a table for unlisted 
values of the operand, 

For doing this, it is necessary to transform the function into a 
form that is more amenable for treatment, This is not difficult 
because every function can be expressed to any desired arbitrarily 
high degree of accuracy as a polynomial series (if it is continuous 


over the given interval) ог аз а trigonometric expression (if it is 
periodic), 


AT.4.1 Successive Differences 


If a function y of x, tabulated at regular intervals, has values yo: 


Уі» Yo, ete. for x = Xo: Ху, Хр, etc.e, the first differences are 
defined as the differences (Yg-Y1; уу-ур etc) between successive 
values of the function, Similarly, second differences are the 
differences between successive values of the first differences, 
Third, fourth and Subsequent differences can also be computed 


Similarly, These differences are tabulated along with the values of 
the function itself, 


Differences can be tabulated in two different ways: 


(1) In a diagonal table, the differences between any two values 


are entered in a row in between the two corresponding rows 
(Table А7-2) 


(2) In a horizontal difference table, the differences are 
entered in the same row as the first value (Table А7-3) 


The diagonal and horizontal difference tables contain the same values 
but store them in different configurations. The horizontal table, as 
one can see, is more compact. Also, it is more convenient because all 
the entries which use a particular value of the function are written 
U row as that value (e.g. Diyg, Doyg, D3y8; Dyyg, D5yg, 
678, уз and Dgyg whose values are У8-Ут, Ув-2Ут+У6, У8-3У7+3у6-У5› 
У8-#ут+ Yg7!ygey,, and У8-5У7+10у6- 10у5+5уц-уз get entered in the same 
row as yg), This means that for a horizontal difference table, all 


entries in a row can be computed and entered Simultaneously, as soon 


f the function becomes 
available, 


Tables a7-4 and AT-5 list the 
Successive differences: 
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Table AT-2 Diagonal Difference Table 


3 ха УЗ 


Table А1-3 Horizontal Difference Table 


Пал те 


1 х у ру Doy Day 


9 Xo Yo 

(oim xu PR 

2 х, у; 2172 2У2 

3 x, Уз 2037933 
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If the original function is a polynomial of the first degree, all 
the first differences would have the Same value and second differences 
would be zero. For a second degree polynomial, the second differences 
will have a constant value and the third differences would be zero. In 
the general case of a n'th degree polynomial, the n 


'th differences 
would be constant and the n+1'th differences would be 


zero. 


t 


A7.4.2 Correction of Errors Using Successive Difference Tables 


In case there ıs an error in one of the values in the tabie, this 
would affect the Successive differences also. If the n th value is in 
error, the n-1 th and n th values of the first differences will be 
affected. The n-2 th, n-1 th and n th values of the second differences 
Will be affected and 50 оп. The error, one can easily See, spreads 
With successive differences. The effect is thus more pronounced for 
the higher order differences. 

It is easy to see that the algebraic sum of the deviations in 
any column is zero, Also, for a diagonal table, the maximum deviation 
will occur in the row in which the error occurred in the original 
table. For a horizontal table, the first erroneous entry (for any 
order of differences) will occur in the гоч in which the original 
function was in error. 

This feature makes it possible to detect and correct an error 
using successive différences. Tables A7-6 and А7-7 show the pattern of 
build up of errors in horizontal and vertical difference tables (the 
entry X5 is assumed to be in error by an amount e). 


A7.4.3 Interpolation Formulae 


We may now see how we can interpolate the value of a function for 
intermediate values for which a table entry doesn't exist. This can be 
easily done by using Newton's formulae. Let us say that we wish to 
interpolate the value of a function y for an argument x, given tabular 
entries (say Yo: Ут, Ур and so on for argument values Хо; Ху, Хо and 
50 оп) at uniform intervals h. h is thus the value of the interval 
over which the differences are taken. 

One would have to choose the a 
argument value for which the 
interpolated. Let us first conside 
the beginning of the table, 


Ppropriate formula depending oa the 
value of the function is to be 
Г а case where this is located near 
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Newton's Formula for Forward differences: This formula states 


у = Yo + (04 yg/B) (х-х ) + (рур/2Һ.) (x-xo) (x-x4) 
* (0370/3! h4) бкехо) (х-х)(х-хр) ERT. 


+ (Dyyo/n! hp) божо) (кожу) (x23) + + rr i? 


l in cases where one is interested in inter- 
ginning of a table. A similar formula 


сап be written for dealing with entries near the end of a table and is 
called Newton's formula for backward differences. Let us now see an 
example which illustrates Newton's formula for forward interpolation. 


This formula is usefu 
polation for entries near the be 


Example AT.1 


ed to find f(x) for x = 2, given its values for x = 


We are requir 
lues of f(x) are tabulated below: 


1.995, 2.005, 2.015 and 2.025. The va 
x 1.995 2.005 2.015 ` 2.025 2.035 
f(x) 0.2512547 0-2%875%6 0.2462917 . 0.2138652 0.221072 
(The function is y = 1/(x)? , so the answer required is 0.25) 
We tabulate the successive differences as follows: 
en i pe (x) pela) p3e(x) 
1.995 0.2512547 
-0.0025001 на 
2.0 < 46 0.0000 
E pe -0 .0024629 -0.0000008 
2.015 0.246291 0.000036! 
re -0 .0024265 -0.0000007 
2.025 .0.2138652 0.0000357 
| -0.0023908 
2.035 0.211471 мене 
------------------------- Further d е s because the fourth 


There is no need to take further difference 


differences are very small. 
The value required is f 
where 


(2) which can be put in the form f(xgo* hu) 
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Хо = 1995 , h = 0,010 and u = 0,5 
Applying Newton's formula for forward interpolation we have, 


(0.5)(-0.0225201) (0.5) (-0.5) (0,0000372) 
£(2) = 0,2512547 + it <A 


ыыра н 4 каа аа рны 
4 


1 2 


(0.5) (-0.5) (-1.5) (0,000000) 


0.2512511 = 0.00125 -0.00000465 -0,00000005 
0.2500000 


This answer, we know, is correct to the last significant place, 
There are also formulae, due to Be 


ssel, Gauss and Stirling, for 
dealing with interpolation for entries 


near the middle of a table, 


АТ.5 DIVIDED DIFFERENCES 


situation can be dealt with. 

The first method (due to Newton) is to take successive differences 
even in such a case, but to normalize these differences by dividing 
them by the magnitudes of the respective intervals, The second method, 
due to Lagrange, does not use successive differences, 


AT.5.1 Newton's Method of Interpolation using Divided Differences 


Let us consider Newton's method first: the first order differences 
will now be 
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(yq-Yg)/ (x47X9) зау d(x4, Xo) 
(yo-y4)/(xo-x1) зау d(x5,x1) 
(Y3-y2Y/ (x3-x2) say d(x3,X5) 


The second differences can be similarly computed from the first 
differences; viz. 


[d(x, x4) d (4, xo) 17 (x27X9? say d(x2,X4, X9). 
[d (x45 x2)-d(xo,x1) (37) say а(хҙ,Х,х1) 
The third order differences will similarly be 


[d (x3, x2 x4) -d крик 5x9) 27 03700) say (x3 5X2 2X4 1X0) 


[d xj, ха» X9) «d (x35 X254) 1/074? say dj X3:X2:X42 


and so on. These are called divided differences. - 
The relationship between simple differences and divided 


differences can be found very easily by computing both for a table 
with regular intervals. The ratio between the n'th order simple 
difference and the n'th order divided difference is 


n!. p? 


tude of the interval. ; 
Since this is a constant, it would be true to Say that, for a 


n'th degree polynomial, the n'th degree divided differences would be 
constant (like the simple differences) and n+1 th degree divided 


differences would be zero. қ oe 
To calculate the value of a function y for argument x given 1 


values yg,y4 Yo ete for arguments Xg,X4» Хә etc, one uses the 
relationship 


Where h is the magni 


y = yg + (X=Xg)d(Xg%q) + (x-x9) (x24 )d (19,34: X2 


+ 


(x-x9) (x4) (x-x2) d (954 X253) T 


Р 
(x-xg) (х=х) (xe Hp) Q3) d (X314 2.3904) 


+ 


X4,X1 »*5) Фа wa 


+ 


(x-xog) (x-x4) (x-x2) (тежа) G7) d (X9 1%] $25 
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+ (хохо) (хех). + > (хех) (х0, х1) 
+ (хохо) (хех). „ o (xexy |) (хех) d (x, XQ eX 9000 хах) 


This is called Newton's General Interpolation Formula and is useful 
where the function has been tabulated at non-uniform intervals. 


Example А7.2 


We shall now compute the same value as in Example A7.1, but arrange 
this to be in the middle of the given table, Since the function is now 
tabulated at nonuniform intervals, we have to take recourse to divided 
differences, 


The values of the function and the divided differences аге аз 
follows: 


x f(x) a? a3 al 
1,985 0,2537926 
-0.0020334/0.008 = -0.25118 
1.993 0,2517592 0.00342/0.018 -0.19 
-0.0025076/0.010 - -0.25076 -0.0003/0.028 
2.003 0.2492516 0,00371/0,020 -0.187 
=0.0024702/0,010 = -0,24702 -0.0005/0.025 
2.013 0.2467814 0,00271/0,00152z0, 182 


=0.0012214/0,005 = -0.24428 
2,018 0.24556 


Newton's formula for general interpolation states 
у = ур + (х-хо )d(xg X ) + (хехо )(xex, )d(xq $X4 9X ) 
We have ху = 1.993, XQ = 2.003 апа X5 = 2,013 


у = 0.2517592 + (2.000-1.993)(-0.25076) 
. + (2,000-1,993) (2,000-2,003) (0, 187? 
= 0.2517592 = 0.0017553 = 0.0000039 s 
= 0.25000000 
which again is correct to the last digit. 
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Һ7.5.2 Lagrange's Formula 


Another way of interpolation is to use Lagrange's formula, This 
states, 


(х-х 1) (х-х:) „ ww (хеха) 


уа. werenemennsnesnerstinssea > 4770 


(хох) (X972) e e o (хрехр) 


(x-xg) (x-x2) PS (хех) 


в medic en -------------------- У 


(x-xog) Grex) (7x3) e . o (х=хр) 


+ HEEL ыыы ЕЕ Ссс у; ће 


(хо-х)(ху=-Хү)(хр-Х*3) e e e (хох) 


(x-xg) (x-x) (x=x2) • • • (x-Xg. 4? 


* cusa mismas ыы atum m PN ER ——— a e 


(xg -x9) Окут) Gr 72? 4% (tg Xn) 


n 


Even here, it is not essential that fhe values of the function be 


available at equal intervalse 


AT.6 INVERSE INTERPOLATION 


By inverse interpolation we mean the computation rd perm : 
function, given its value. This would be possible i p ep arcs 
formula that expresses X аз 8 function of y instead + - ed va 
around, e.g. if one could interchange the values 9 Aa A Жы 
Lagrange's formula abovee It turns out that this сап jp dus e = 
This formula merely links the values of one variable м эзы Ван 
another; there is no implied assumption that one of ыда n Mea 
the other. Either of the two yariables can be taken аз the ixi А 
variable and the other аз the dependent variable, 1% із. з m 
possible to interchange X and У in the formula, This yie E e 
reversed Lagrange formula which can be used for finding the value of 
X, given the corresponding Ye 

This is a straightforward method. There ara several other 
methods of doing this, One is that of successive approximations or 
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iteration. Another is by reversion of series (i.e. expressing x as a 


power series in y). The student may consult any standard textbook on 
numerical analysis for details of these methods. 


Example А7.3 


we are given the values of the function f(x) for x = 1.99, 1.997, 


2.002 and 2.01. We need to find x such that f(x) = 2.5. (the 
function is у = 10/(х)2, so the answer required is x = 2.0000) 
The function is as follows: 


i x y = f(x) 
85-25 ” тезі... ence о 
1 1.997 2.5075168 
2 2.5 
2 2.002 2.4950074 
3 2.01 2.475 1862 


In order to facilitate computation, let us compute and tabulate the terms 


used in Lagrarge's formula as follows: 


„йб al У-Уі Yo-Yi Y47Yi У-У УҘ-У{ 

O 1.99 2.5251887  -0.0251887 -- -0.0176719 -0.0301813 -0.0500025 

1 1.997 2.5075168 -0.0075168 0.0176719 --- -0.0125094 -0.0323306 
? 25 

2 2.002 2.4950074 0.0049926 0.0301813 0.012509) ——_ -0.0198212 


3 2.01 2.4751862 0.0218138 0.0500025 0.0323306 0.0198212 


н 


An Introduction to Numerical Analysis 329 


Substituting in the formla, we have, 


(-0.0075168) (0.0019926) (0.0248138) 


( 0.0176719) (0.0301813) (0.0500025) 


(-0.0251887) (0.0019926) | (0.0248138) 
+ 1997 Х 2-————--- X ----------- i ae bane 
(-0.0176719) (0.0125094) (0.0323306) 
(-0.025 1887) (-0.0075168) ( 0.0248138) 
+ 2.002 х ------------ х ------------ x ӛссесеісеегі 
(-0.0301813) (-0.0125094) ( 0.0198212) 


(-0.0251887) (-0.0075168) ( 0.0019926) 


+ 2.01 X 
(-0.0323306) (-0.0198212) 


(-0.0500025) 


0.4253532 х 0.1654203 х 0.962511 


+ 1.997 X 1.4253532 х 0.3991078 х о.7675019 
0.834579 x 0.60089212 x 1.2518818 


0.5037188 x 0.232498 x 0.2518818 


-- 1.99 X 0.0349172 
+ 1.997 X 0.436608! 
+ 2.002 x 0.6278086 


- 2.01 x 0.0295005 


0.0694852 + 0.8719069 + 1.2568728 - 0.059296 


= 1.9999985 


The solution is olose enough to the actual value of 2. 
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А1.7 DOUBLE INTERPOLATION 


When a function has two arguments, it can be tabulated against both. 
Interpolation can 5e done t> ccmpute values of the function for 
argument values not in tne table. There are two ways of doing this. 
The first is to do tne interpolation in two steps: first with respect 
to спе variable and then with respect to the other, Alternatively, it 
is possible to interpolate for both variables together using two 
dimensional, double or two-way differences, Both methods can be 
extendea to cover functions of more than two variables, Formulae for 
such two or multidimensional interpolation can be derived as 
extensions of the corresponding one dimensional formulae, 


AT.Ó NUMERICAL DIFFERENTIATION AND INTEGRATION 


AT.8.1 Numerical Differentiation 


Given a few values of a function, it is possible to compute its 
derivative and integral using numerical methods. А straightforward way 
of differentiating a function is to first express it in the form of 
the appropriate interpolation formula, Once that is done, the 
resulting expression can be differentiated as desired. Quite 
obviously, one has to use the formula best suitable for a given 
Situation, For instance, it would be best to use Newton's forward 
differences formula near the beginning of the table, Newton's backward 
differences formula near the end and Stirling's or Bessel's central 
difference formula near the middle of the table, 


A7.8.2 Numerical Integration 


Given the numerical values of a function, how does one compute its 
integral? Integration is essentially the process of computing the area 
under the curve and between the two limits, 

Here again, it is quite straightforward to represent the function 
as a polynomial in terms of the interpolation formula and then to 
integrate this expression, It is up to us how many values (in the 
table) we take into consideration for performing the interpolation, 


Rectangular Rule: At one extreme, we could simply assume that the 
value does not change at all in the interval between two entries (y=Vn 


for x, < x < xq«h), This amounts to substituting the curve by a series 
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of rectangles. Interpolation would then reduce to the trivial task 
of assigning the 'left' value to all points in the interval. This 
would mean applying the rectangular rule for integration, 


Trapezoidal Rule: Another possibility is to do linear interpolation, 
taking only the two entries on either side of a point at which the 
value is to be interpolated. The sample points are in effect joined 
by straight lines. The area to be integrated is thus approximated by a 


series of trapezoids. 


Simpson's Rule: Alternatively, one can use three values on 
pairs of adjacent segments) at a time to fit a second dampa te Md zi 
that "interval. The function is replaced by a series er = x Tad 
second degree curves (parabolas with vertical axes); s 


famous Simpson’s rule which states: 


) 


хатпһ 
f 0 Ж. пређу зе фуг "уз 2, +2Yn2* Ynn 
3 


Xo 


1 


) + 
ж “[ур+ (у ү*Уз+ Уп) + 2(ур+Уц*,*** *Yn-2 Yn 
3 


where с = 1, 4, 2, 49-2» 4, 1. 


Example a7.4 


al 
We have to compute numerically the integr 
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(Its actual value is 
2.12 

[ - x 1 = = 0.4716981 + 0.5 = 0.0283019 
2.00 


Let us first try the trapezoidal rule (i.e, linear interpolation), The 
value of the integral will be: 


[ f(2.00) + Ғ(2.12) 1x ( 2.12 - 2.00 ) / 2 


i.e. ( 0.25 + 0.2224991 ) x 0.12 / 2 


( 0.4724991 ) x 0.12 /2 = 
= 0.0283499 


For applying Simpson's rule, the value of the function has to be known 
for three (or more) equidistant points. Let us tabulate these 


x f(x) 
0 2.00 0.25 
1 2.06 0.2356489 
2 2.12 0.2224991 


We have, for the value of the integral, 


h 
--- (yg + hy, + Yo) 
3 


0.06 
i.e,  ---- X ( 0.25 + 4 x 0.2356189 + 0.2221991 ) 
3 


E 0.02 x ( 0.25 + 0.9125956 + 0.2224991 ) 


0.02 x ( 14150947 ) 


0.0283018 


which is significantly better than the linear approximation. 
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the sixth differences and 
It substitutes the given 
The formula states: 


ce E Rule: This considers upto 
ama ore gives a better approximation. 
ion, in effect, by a sixth degree curve. 


f Xotnh 3h 
ydx = 5 [ур+5Уү+Ур+буз+Уц+5УБ+?У6+®УТ*У8 
0 
+ буу 0 571152728” 


+ 2yg.6*9Yn-5*Yn- y*6Yn-3* Yp-2*5Yn-1 *ypl- 


Mise Е а Ту Ба бе ће Бери 
e n values at а time (i.e. 
nts) and fita n-1th degree curve in this 
(as well as the computational loaa) 
There is always a trade off 


ational loaa. 
= 3 (Simpson's rule of 
5 segments 


General Case: in general, one can tak 


cine n-1 adjacent segme 
Piin. Naturally, accuracy 
vision as the value of n increases. 
accuracy of computation and comput 
ate choices that are most popular are a 5 
= -ng parabolas mentioned earlier) and ў = 6 (fitting n/ 
fifth degree curves: Weddle's rule) 
. The above discussion is based ОП 
other formulae (say, the 
d Bessel) to integrate à 


New 

с ton's formula. One са 
entral difference formu 

gi ven function. 


n use any of the 
las of stirling an 


ss's Formula: The formulae discussed 8 
rformed over 5 


сета that integration is ре 

results This condition need not necessarily Y^ 

subdi vi si It turns out that accuracy i5 nigh 

midpoint on are not equidistant but symmetric W 
of the interval of integration. 


Let us say that we need to evaluate 


D 
f f(x) dx 
a 


334 Programming in FORTRAN 


It would be convenient to change the variable to u such that the 
limits become +1/2 and -1/2 and the function f(x) becomes F(u) 


Gauss's formula states 


pw 
-1/2 


F(u)du = R4 (цу) + Ro Plug) + .... + Ry F(u,) 


Table Д1-6 Coefficients for Gauss's Formula 


n Subscript г Up Rp 
2 1,2 0.2886751346 1/2 
3 2 0 4/9 
1,3 0.3872983346 5/18 
5 3 0 64/225 
2,4 02692346551 0 2393143352 
1,5 04530899230 0.1184634425 
7 0 0.2089795918 
0.2029225757 0.1909150253 
0.3707555928 0.1398526957 
0.4745539562 0.06474248308 
9 5 0 0.1651196775 
4,6 0.1621267117 0.1561735385 
3,T 0.3066857 164 0.1303053182 
2,8 0.4180155337 0.09032408035 
1,9 0.4840801198 0.04063719418 
10 5,6 00744361745 0.1477621124 
4,7 0.2166976971 0.1346333597 
3,8 0.3397047811 0.1095131813 
2,9 0.4325316833 0.07472567458 
1,10 0 .4869532643 0 .03333567215 


u's and R's in the formula are constants and their values сап be 
calculated. Because of symmetry, they have the same values for pairs 
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of points on either side of the midpoint (of the interval of 
integration) 


1.е. R4 = Rn: Ro = Rn-1? etc. 
Similarly, цу = up, ир = Up.» Cte 
The number of values in the table need therefore be only either 


n/2 (for even n) or n/2+1 (for odd n) 
Going back to the original varia 
this formula can be rewritten as follows: 


ble (and the interval b to a), 


b 


/ f(x)dx = (b-a) [8+ F(u,) + 82 F(u) +... + Rn F(uy)] 
а 


The integral can be evaluated by substituting the values of u and R in 
Gauss's formula. 

Tables of values of u and R for various values of n are given in 

standard text books, Table A778 gives, thess for a few selected values 
of n: 
Lobatto's formula: Аз we зам, Gauss's formula uses values which are 
Symmetrically placed with respect to the midpoint of the Аны” 
however does not use the values at the end points. This nga аи“ 
Modified by Lobatto to include the values of the function а 


Points as well as the midpoint. Since the midpoint is to Не dd 
Only odd values of n are possible. while the po emo 11у be 
remains the same, the values of the coeffici ents will naturally 


different, 

The values of u amd R for selected values of nare gi 
AT-9. 

These values have to be substituted in the formula е 
the earlier (Gauss) case. 


Ompari son: 


This method yields results whic 

Gauss's formula. It however is ШО 

kae function is usually 0 at the limi 
e number of com i ded) 

putations needed). у к 5 5 

Having сопзіазгей several formulae for numerical integration, it 

pation. TO facilitate this, 


pee, be advantageous to compare their оре EH ; 
© Shall integrate the same expression over the same linits, using 


ven in Table 


xactly as in 


s accurate than that for 
cause the value of 
tion (this reduces 


h are les 
re convenient be 
ts of integre 


336 Programming in FORTRAN 


each of these methods: the trapezoidal rule, Simpsons rule, Gauss's 
formula, Weddle's rule and Lobatto's formula successively. We shall 
choose a function which is easy to integrate analytically, so that we 
can also compute the exact value of the integral. This will help us to 
compute the errors involved in the mmerical methods used, 


n 

3 2 
1,3 

5 3 
2,4 
1,5 

7 4 
3,5 
2,6 
1,7 

9 5 
4,6 
3,7 
2,8 
1,9 


0 
0.2344345 
0.415112 
0.5 


0.1815585 
0.338593 
0.449879 
0.5 


0.355556 
0.272222 
0.05 


0.2438097 
0.2158727 
0.1384129 
0.02380951 


0.1857593 
0.1732142 
0.1372695 
0 .08274774 
0.0138889 


For most of these methods, опе can choose ап appropriate number 
of points depending on the nature of the function and the degree of 
accuracy desired, We shall use the same number (seven) of points or 
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values of the function in each case. 
Each method consists in taking the values of the function at a 


finite number of points, multiplying these values by appropriate 
weights or factors and adding up the individual contributions (or 
partial products) due to the points, We shall therefore use a tabular 


method of calculation for brevity. 


ьхашр1е 41.5 
The function we choose for integration is, again, similar to the one 


chosen for the earlier example: 


2.00 
We choose a rather large interval to ensure that the ee re 
the different methods show-up оаа унаар оао сизу по cse 
ensure that we have an adequate number of significant каала is 
Let us first compute the actual value of the integral. 


3.2 54-5. )-s- 14875 


[ - 10/x ] 
2.0 


= [ -10/3.2 + 10/2.0 } = € - 3.12 


oon apezoi dal 
Linear interpolation between the two limits d.e. the de d 


rule) yields the value 


2 
(3.2 ~ 2.0) &:[ 46-7 (3:2) 10/5 62.0)" 84/6 
1.2 x 3.4765625 x 0.5 = 2.0859375 


= 1.2 x [ 0.9765625 + 2.5 1/2 = 


11.252). 
lt because 


r such a lar 


the curve departs 
ge interval. 


The error in this case is 0.211 (%.©. 
This, understandably, is a poor resu 
Very appreciably from the streightline ove 


Trapezoidal Rule (Seven Points): 
n points in the interval. 


Let us t i for seve 

ry the trapezoidal rule 5 
Іп this case, it сап не ly be seen that the weightage BSEHORS nS; аз 
follows: 
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x f(x) Factor Partial Product 

0 2.0 205 x 0.5 = 1:25 

1 2.2 2.0661156 x1 = 2.0661156 

2 2.4 1.736111 x 1 = 1.736111 

3 2.6 1.4792899 x1 = 1.4792899 

4 2.8 1.2755101 x | = 1.2755101 

5 3.0 1261111111 x1 = 11111111 

6 3.2 0.9765625 х 0.5 = 0.4882813 
Total 9.406419 


The value of the integral will be 0.2 x ( 9.406419) = 1.8812838 
The error in this case is 0.0062838 or 0.34%. 


Simpson's method; 
The weightage factors for Simpsons method will be different, even 


though the values of x (and therefore the values of the function) used 
are the same. The tabular entries will be as follows: 


0 2.0 2.5 x 1 = 2.5 

1 2.2 2.0661156 x4 = 8.2644624 
2 2.4 1.736111 x2 = 3.472222 
3 2.6 1.4792899 x4 = 5.9171596 
4 2.8 1.2755101 x2 = 2.5510202 
5 3.0 741111111 x4 = y yyyyyyy 
6 3.2 0.9765625 x 1 = 0.9765625 


The integral will be = (28.125869) x 0.2 / 3 = 1.8750579 
The error in this case is 0.0000579 or 0.0032. 
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Weddle's Rule: 


at seven equidistant points 
those computed for Simpson's 
different. 


We А 

227 rule needs values of the function 

жй an therefore use the same values аз 
above, except that the weightage factors are 


ТИШНЕ recen tat eee 


Partial Product 


"" x f(x) Factor 
0 2.0 2.5 х1 = 2.5 F 
1 2.2 2.0661156 x5 = 10.330578 
2 2.4 1.736111 x1 = 1.736111 
3 2.6 124792899 x 6 = 8.8757394 
4 2,8 142755101 x1 = 12155101 
5 3.0 141111111 x 5 = 5,5555555 
ee 0.9765625 х 1 = 049765625 
ти Total 31.250055 
= 128750033 


Iritegral = (31.250055) x 0.2 x 0.3 = 


T 
he error in this case is 0.000033 or 0.00175. 


iuss's Method: 
or choosing values of X 
ted integrale Since 
f the interval, We 
t the jimits for 


Ga LU 
,Gauss's method, as ме зам, provides a means f 


ы yield the most accurate valu 

қ апа аўшшенгїо with respect to ШО midpoint 9 

inte to transform the independent variable such tha 
gration become =1/2 to 1/2. 


Тһе арргоргіабе transformation would be 


x = 1,2 u + 2.6, 
i.e. u = (х-2.6)/1.2 
The method, аз We 
re those of x) for 
ding weightage 


Again, we choose here а seven point formula. 


VAM prespecifies the values of u (and therefo 
facto he function has to be knowne The correspon 
rs (R's) are also, similarly, prespecified. 
ме у ее the values of the function for 
u (values of u and r are taken from Table 


the prespecified 
AT-8 for п-7)» 
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Transformed Corresponding f(x) Weightage Partial 
Variable u Value of x Factor R Products 
1 024745539 3. 1694646 0.99547 0.06474248 0,0644491 
2 03707656 320449187 120785706 0, 1398527 0. 1508409 
3 0.2029226 2.8435071 1.2367769 0.1909150 022361192 
4 0 2.6 1,4792899 0.2089796 0.3091414 
5 0„2029226 23564929 1„8008092 01909150 0,313801! 
6 0.3707656 2.1550813 2.153142 0. 1398527 0.3011227 
T 0,4745539 2.0305354 2.4253748 0,0674248 0, 1570245 
Total 15624992 


Value of integral = (1.5624992) x 1.2 = 1.874999 
The error in this case is 0.0000001 or 0.0000053%. 


Lobatto's Formula: 


Like Gauss's formula, Lobatto's formula too, we Saw, uses points 
symmetrically placed in the interval of integration, It uses values 
of the function at the endpoints as well, The method for 
transformation of the variable in this case is exactly tha same as for 
Gauss's formula, The function, however, has to be known for a 


different set of values of u (and therefore of x). These are as 
follows: 


Transformed Corresponding f(x) Weightage Partial 

Variable u Value of x Factor R | Produets 
1 0,5 3.2 0.9765625 0.02380951 0,023335 
2 0,115112 3.098 1344 1,0418363  0.1381129 0. 1442035 
3 0.2344245 28813094 122045371 0.2158727 0.2600266 
4 0 2.6 124792899 0.2138097 0.3606652 
5 002344245 2. 3186906 1.8600062 0.2158727 0.4015245 
6 0.415112 2. 1018656 223635501 0.1384129 0.3133045 
7 0.5 2.0 2.5 0.02380951 0.0595237 


Тоба1 1.8750996 
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The error in this case із 0.0000996 Or 0.0053. 
Comparision: 
each of these cases: 


Let us tabulate the magnitudes of the errors in 


The function to be integrated was: 


352 
10 
Function: meer dX 
x? 
2.0 
method Error 
Trapezoidal Rule 11.25% 
(2 points) 
Trapezaidal Rule 0.34% 
(7 points) 
Simpsun's Rule 0.003% 
(7 points) 
Weddle's Rule 0.0017» 
(7 points) 
Gauss's Formula 0.00000535 
(7 points) 
0.0053% 


Lobatto's Formula 
(7 points) == 


A7.8.3 Mechanical Cubature 


s of computing the integral 
mechanical cubature is 
How does 


Just as mechanical quadrature is the proces 
of a function in terms of a single variable, 
the process of computing the double integral of а function. 
one do this? broadly speaking, two approaches аге ый 
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Repeated Integration: 


One straightforward method of doing this is to choose one of the 
formulae applicable for a single variable and apply it in 
two stages. For example, assume that the problem is to integrate a 
function of two variables x and y. Its values are given at, say, 
uniform intervals (x4, Хр, s+ , Xm and у, yo, ... , Ур) along the 
two dimensions. 

Keeping one of the two variables (say y) constant, we can 
integrate the function against the other variable (x) over the 
desired integration range for this variable (х1, Xo, ... хт). 
Doing this п times, for all given values of y (i.e. уу, Yo 


integration along the second dimension (i.e. for y) using the same 
formula. 


Extension of formulae for single variable: 


The other method is to choose one of the earlier formulae ~ 
Simpson's or Weddles's for instance - and extend it to the two 
dimensional case. 


AT.9 SOLUTION OF ALGEBRAIC AND TRANSCENDENTAL EQUATIONS 


It is possible to solve equations upto the fourth degree using 
algebraic methods. There is, however, no general method for 
Solving transcendental equations. Numerical methods make it 


possible to solve such equations so long as the coefficients are 
numerical. 


AT.9.1 Graphic Methods 


One сап first find approximate roots of the equation, say graphically. 
For instance, if it is required to find the solution to the equation 
f(x) = 0, we could plot the curve y = f(x). 

It is quite clear that any value for which the curve eérosses the 
X axis is a solution of the equation. Plotting the function is 
therefore one way of solving the equation. 

It is even possible to find an approximate solution without 
actually plotting the function, by merely tabulating its values and 
observing the change of sign. 
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t be more convenient to split the function 
f(x) = в(х)1 and plot them 
gives the 


In some cases, it migh 


into two separate functions Ге.в. 
separately. The point of intersection of the two curves 


solution of the equation. 


A7.9.2 Solution by Interpolation: 


The method of false position ("Regula falsi") is one of the oldest 
methods of finding the real roots of а numerical equation. This 
comprises finding two values on either side of the solution. Linear 
interpolation between the two values yields а closer approximation. 


In other words, 


(a) Choose two values (x4 and х2) which lie on either side of. 
tion f(x) = 0. 


the solution to the equa 


(b) The function f(x) must cross zero between the values X = X4 
and x = Xp 3 f(x,) and f(x2) will have opposite signs. 
ind the value of 


ate between х1 and Xp to f. 
will again be an 


(c) Linearly interpol 


x for which f(x) = 0e This, ofcourse, 
approximation, but a better approximation than the earlier 

one, 
(d) Once again, choose a new value lying on the other side of 
a value for which the sign of f(x) 


the actual root, i.e. 


changes. 
ess with this pair; iterate till the 


(e) Repeat the proc 
y is attained. 


requisite accurac 


Example 47.6 
the solution to the 


Let us find, using the method of Regula Falsi, 


equation 

x? . 3-0 
this equation isx- 17320508. ) 
for X which lie on either side of 
the expression changes 


(We know that the real solution to 

Let us start with two values 
426 solution (say, 2 апа 1; for these values, 
rom negative to positive). 


344 


First Approximation: 


Value of Deviation 


unknown from 7ег0 
1 -2 
2 +1 
1 
(Difference) 
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The correction to be applied is 


Difference in Deviation 


Difference in values of Unknown 


x Deviation from Zero 


hy = 1 x (2/3) = 0.667 


The next approximation is 1.667 


‘Second Approximation: 


Now we choose 1.6 and 1.8 as the two values lying on either side of 


the solution. 


Value of Deviation 


unknown from 7егО 
156 -0.44 
1:8 40.21 
0.2 0.68 


Third Approximation: 


The correction to be applied 
0.2 x 0.44 


ho = ---------- - 0.13 
0.68 


Тһе next approximation is 1.6 + 0.13 = 1.73 


Let us choose values 1.73 and 1.74 lying on either side of the 


solution 


Value of Deviation 


unknown from ZerO 
1.73 -0.0071 

4 %0.0276 
0.01 0.0347 


The correction to be applied 
0.01 x 0.0071 


= ------------- = 0.00204611 
0.0347 


h3 


Thenextapproximation is 1.73 +0.00204 
271273204 
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fourtn Approximation: 


" | 
et us choose values 1.7320 and 1.721 lying on either side of the 


solution: 


Value of Deviation 
unknown from ZerO 


The correction to be applied 


0.0001 x 0.000176 


мна 00001760 <:ң:чезеш---жетттет- ane 0.0000508083 
+7321 +0.0001704 0.0003464 
0.0001 0.0003464 


The value of the unknown is 1.7320 + 00000508083 = 1.7320508 


This is accurate enough for our purposes. The iterations can be 


continued if greater accuracy is desired. 


A7.9.3 Newton Raphson Method 


ul in cases where the derivative of the given 
nd. It makes use of the property that if "а! is 
f the equation fix)=0, then the correction h 
accurate value of the root is given by 


This method is изеҒ 
function is easy to fi 
an approximate root 0 
necessary to get a more 


h = = f(a)/f' (a) 


T 
he better root is therefore 


a га+ћ=а- f(a)/f'(a) 


This relation can be repeatedly applied to get successively mere 


accurate approximations of the root. 
An example to recall would be the computation of square root (see 


а ЖАН using this method. Тһе reader may work this out using 1 
e starting value for the square-root ОЁ, say 36. 
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Һ7.9.4 The Method of Iteration: 


.Iteration is a proper method to use when the equation can be expressed 
in the form 


y = f(x) 


If, for instance, we know an approximate root a, we can substitute it 
in the equation to get a better approximation. Iterating repeatedly 
, will yield approximations which are accurate to any arbitrarily high 
degree, 
^n important point to remember is that the process of iteration 
converges only if the first derivative f'(x) is less than 1. The 
smaller this value is, tne more rapid the convergence, 


(Consider, what happens if the solution happens to be a minimum or a 
maximum?) 


AT.10 SIMULTANEOUS EQUATIONS 


Һ1.10.1 Gauss's Method 


Given a number of equations in several unknowns, 
method of successive elimination for solving them, 
n equations with n unknowns (x4 to Xp)» 


one can use the 
Let us say we have 


(a) Use one of these equations (say the m'th) to express one 
variable (say Xp) in terms of the others. 

(b) Substitute this value of x, in all the other equations, 
leaving n-1 equations in п-1 unknowns. 


(c) Apply this method repeatedly till only one equation in one 
unknown is left. 


(d) Solve this equation in the usual manner, 

(e) Substitute the value so obtained in one of the 
equations which has only two variables, 
equation in one variable, Solve it, 

(f) Use the two values in an equation which has three unknowns 


and solve for the third, and so оп till all the unknowns 
have been found, 


earlier 
It now becomes an 


Two questions arise, in what order does one eliminate unknowns 
and which of the several equations does one pick for elimination of а 
given unknown at the beginning (or at any other stage for that 
matter)? It would be best at any given stage to choose the equation 
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with the largest coefficient and eliminate the unknown associated with 


it. (Consider why.) 


Example A7.7 
Let us attempt to solve the following simultaneous equations using 


Gauss's method 


(1) 4.01 х - 2.98 у + 1003 7 7 3.2 = 0 
(2) 1.97 x + 1.04 y = 14975 2 + 0.84 = 0 
(3) 1.015 x + 2.03 У + 3.01 2 + 3.936 = 0 


uations are 2, 3 end 4.) 


(The values of x, y and z that satisfy the ed 
he unknown with 


For elimination, let us choose the equation and t 
Es largest coefficient, i.e. X in equation (1). 
lving for x in (1), we get, 


2.98 1.03 3.2 
(4) х= ---- у = mn ҮҮ mmm 
4,01 4,01 4,01 


. 0,7431421 у - 062568578 2 + 0. 1980019 


Substituting in (2) 
21y = 0.2568578 2+ 0.7980049) 


1.97 (0.74314 
+ 1.04 y = 10975 2 + 0.84 = 0 
i.e, 
(5) 2,5039899 у = 2.810098 2 + 244120696 = 0 
Substituting in (4) 
2568578 2+ 027980049) 
= 0 


‘1,015 (067431421 у = 0% 
Ue mel + 2.03 y = 30012 + 3.936 


(6) 2.182892 y - з.2747106 z + 8.7%59789 = 0 
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Eliminating z using equation (6) (again because it has the largest 
coefficient), 


2.7842892 1.7159749 


y 
3.2747106 3.2747106 


(7) z = 0.8502397 у + 1.4492807 


Substituting in (5), 


2.5039899 y - 2.4810098 (0.8502397 у + 1.4492807) + 2.4120696 = 


(8) 0.3945369 y - 1.18361 = 0 
(9) у = 2.9999982 
Substituting in (6), 
2. 7842892 x 2.9999982 - 3.2747106 z + 4.7459749 = 0 


i.e. 
` (10) 3.2747106 z =13.098837 


(11) z = 3.9999983 


Substituting for y and z in (1), 


4.01 x - 2.98 x 2.9999982 + 1.03 x 3.9999983 - 3.2 = 0 


(12) 4.01 x = 8.019996 


(13) x = 1.999999 


The solution therefore is 


X 
y 
z 


1.9999999 
2.9999982 
3.9999983 
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These are near enough to the original values that we assumed. 


AT.10.2 Method of Iteratior 


The method of iterations mentioned above becomes applicable even for 
the solution of simultaneous equations. The requiremert in that case 


that the equations which may ре in the form 


f(x,y) 
g(x,y) 


0, 
0, 


Should be put in the form 


x 
y 


F(x,y). 
G(x,y). 


Once this has been done, the earlier method of iteration can be 


applied; i.e. 
If x, and y, are ap 
Ха. апа y,,4 would be better approximatio 


proximate roots of the two equations, then 
ns where 


хат = Р(х,у) 
Yne1 = G(x » Ур) 
This method, it сап be seen, can be extended to simultaneous 
1 

equations involving more unknowns. 
The вене на оп for convergence even in this case is E ET an 

that for a single unknown. The condition here is that the ud я 
Partial derivatives should be less than one for both the we aim 
and G in tne neighbourhood of the id convergence, : 
essential that these values be muc 


root, For rap 
h less than 1. 


87.11 ORDINARY DIFFERENTIAL EQUATIONS 

Analytical methods are available for the solution of certain V cu 
differential equations, These can therefore be solved in а 8 T e 
forward way, There are other types of equations which so Ane: Juss 
themselves to analytical treatment. Given the initial values, 
numerical methods will have to be used for solving then; Several such 
methods are available and these can yield results to any desired 


degree of accuracy. 
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87.11.1 Euler's Method: 


We are given a differential equation of the type 


d 
as өг f(x,y) 
dx 


We have to solve it, given the initial values (Xg3Y 9). 

The value of dy/dx Specifies the slope of the curve at any point, 
It is therefore possible to draw a tangent to the curve where desired, 
Let us draw a tangent at the starting point (х0, ур)» This tangent can 
be assumed to coincide with the curve for a short distance, Using this 
property, it is possible to obtain another point Gay) on the curve, 
very near to tne first point, The procedure can be repeated to plot 
the third and Subseguent points on the curve, The problem ofcourse is 
that there is a small error involved in going along the tangents 
instead of along the original curve. For reasonable accuracy, the 
increment has therefore to be kept very small. even then, there will 
be a cumulative drift away from the curve, which builds up with 
successive iterations, 

in effect, this method assumes a constan 
througnout the range of the increment 
this is not the case, 


t value for dy/dx 
(x; to Xi * delta x), though 


AT.11.2 todified Euler's Method 


An improvement is however possible, This drift can be reduced by using 


the mean of the the values of the slope at both ends instead of the 
value at the start, This method lends itself to successive iterations 
for even better results: find the slope at this point again and use 


this to find a better value for tne mean slope over the interval and 
зо on, 


The modified Euler's method is as follows: 
(1) Start at ХО» Ур 


2) Determine the slope sọ [dy/dx= f(x,y)] at this point, 
Sis: 0 


(3) Use this to find the next point (x4,y4) on the eurve, for a 
given small increment k in x (хо + k, yg + К sg). 
[This is an approximation because we assumed in effect that 
the slope is constant (sg) throughout the range of the 
increment ke] 
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A better approximation will be to use tne mean of the two 
values of the slope at the two end points, Hence, 


4. Calculate this mean slope, sa zL £g yo) fr, y1)172. 
5. Use this value of the slope to get the next point on the 
curve, as in 3 above. 


(This will be a better approximation than the one in 3.) 


6. Use the better approximation for x4,y4 to calculate а new 


better value of the mean slope. 
T. Iterate (steps ! to 6) as many times as necessary to get the 
desired accuracy. 


enough value of the next point 


6. After obtaining an accurate 
starting with Gay) 


(ху›уу) as above, repeat the procedure, 
to get (x5,y2) and 89 on. 


81.11.3 The Runge Kutta nethod 


This method provides formulae to calculate increments of the function, 
given an expression for the derivative аз 8 function of x and y. These 
formulae can be repeatedly applied to trace the funotion over an 
extended range. The foraulae for some types of differential equations 


are given velow: 


first Order Eguationsi Consider a first order differential equation of 


ау 
"eiae m f(x,y) 


we are interested in determining the values of the function at 


intervals of nin the value of Xe Сем 
The increment іп tne value of y (at tne point (xpo)? is even 
ру 
delta у = (ку + 2 К + 2&3 + ky)/6 


* wüere 
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ж 
= 
| 


= £(x9,YQ) h 


= f(xg + h/2, Yo + k,/2) h 


ж 
m 
M 


кз = f(xg + h/2, Yo + k2/2) h 
Ку = f(x) + h, Yo + k3) h 

The new values of x and y are given by 
Xi = Xo + h, Уу = Yo + delta y 


хо and Yo are calculated from X4 and У, ina similar manner and 
зо on, 


Note: What happens if dy/dx is a function of only x? The Runge Kutta 
rule then reduces to Simpson's rule, (Verify.) 

Similar equations are available for second order equations and 
Simultaneous equations, The reader may refer standard books on 
numerical analysis for details of these methods, 


Appendix 8 


CONTROL SPECIFIERS 
FOR FORTRAN 77 
INPUT AND OUTPUT 
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Specifiers for Input 


i Specifier | FORMAT of | Specification effected i READ/ | 
! | Specification | Or value returned && IWRITE | 
1 | | "(default option |Sequential} 
| | | marked d.o.) | | 
+. 
|1. ACCESS= | 'SEQUENTIAL' or ! Nature of File (а.о. | | 
| | 'DIRECT', | ‘SEQUENTIAL ') | | 
| i Character Variable | 'SEQUENTIAL' or 'DIRECT' i | 
12. BLANK= | ‘NULL’ ог 'ZERO! | Handling of blank | | 
І i i characters (d.o. 'ZERO') | i 
13. DIRECT= i Character Variable ! 'YES', 'NO' or 'UNKNOWN' =} | 
ey 
n. ERR- | Statement Label i Control to go to the !Optionaleé! 
) | i Statement specified if | i 
i | | error i i 
=—— им] 
5. END= Statement Label Control to go to the !Ореіопа166 


4 ' 

I 
! Statement specified if end | | 
| of file i i 


1 1 
1 | 
1 1 
1 1 
1 I 
! 1 
1 1 
1 П 


Ц 
i8. = | Statement Label | FORMAT statement Label iOptional | 
i | (or %) | CFALSE! if *) i i 
9. FORM- "РО , 

СЕ (оа ог (d.o. 'FORMATTED' for Seq. 


! 1 
| file,  "UNFORMATTED' for | 
| Direct Access file) i 
| "FORMATTED' 'UNFORMATTED' | 
| OWN | 


or "UNKNOWN! | 
110.FORMATTED- | Character Variable | YES’, 'NO’ or "UNKNOWN' | 


1 
1 
11.105ТАТ- Integer Variable Status of Error 


|| Optional@@} 
| 0: по еггог 
| 


I 1 
І Ц 
|| | : 

| i : end of file 
| | : error code 


1 
1 
1 
І 
П 
I 
1 


Logical Variable |  'TRUE': named ! 1 
| 'FALSE': no name | | 


асе иитии а Ақы ш ы с м ОШ 
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{optionaleé 


{Optional 


loptional#e|orttonsie? 
| 
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lopttona168 | opttcnalee 
) 


| 
| 


| 
| 


Output Operations 
рї1опа1@@ | Optional é@ 


10 


{ 
il [EL 
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%--------- ----%-----------------------------.-............................əəӛ. 


> 4 1 1 
114. МЕХТВЕК = ! Integer Variable | Number of next record in i 1 
| ДЕ | i Direct Access File | ) 


' 
%--------------4---------------------------.-................ 1... 2 ы... 


о 

115. NUMBER | Integer Variable | Nior of unit connected | | 
1 Џ Џ о е 

RÀ а ыча ы. 

| i 


116. 0PENEDz | Logical Variable |  'TRUE': opened | | 
| | | 'FALSE': not opened | | 


і 
ЕЕ E CORNER пиће тета пе ан деси пива ЖЫЕН 


117.КЕС- | Integer Variable | Record number of record | | 
1 1 


i i | storage location | | 


кован 


116,RECL= | Integer Constant | Record length for Direct | 
| Access file | 
| Record length of records | 
| in file i 


p 


Mose ADESSO ни RR 
FI9.STATUS- | "00р", 'NEW', | Status of file (d.o. NEW) | 
| | "SCRATCH! | | 
| i "UNKNOWN! | | 
^ 1 


'KEEP' or "DELETE! 


П 
i 
TALL. 


120. ОМЕОНМАТТЕО |= Character Variable | 'YES', "ҚО! or 'UNKNOWN' | | 


*—————————M———————————————————Ó——— 


ener rene mene eneee 
121. UNIT- | Integer Constant or| Logical number of device {Required 
їн} | Integer Variable on which 1/0 is to be done ! 
1 
I 


| 
' 
| 
j] 
I 
Notes 


&& "Specification effected! aplies in cases where the FORMAT of 
Specification (column 2) is not a variable: e.g row 1. A value is 

returned in cases where the FORMAT of Specification requires a 

variable name: e.g. row 3. 

Required for, and only for, direct access files, 

ee These are optional but use is advised 

## Optional, but may be necessary depending on the application 

9% These are applicable to Sequential files only 


=й 
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a en nn равна | 
! Optional | 


i | П П П 
| |] ee с. | 
Sera a Se ee ————Ó 
| | | | | | ‘Optional | 
| i 1 | i і i | 
RR ные ИН МЫСА Ы е Та СЕ a 
| | | | | | {Optional | 
| i | | | | | | 
MEN кокк кентке жене лесс ee Lo 
{Required | | | | | | | 
| | | | | | 
i | Џ i 4 
енене эзан кын EISE np BRL aa ҮҮ 1 
| | | | |Required**| i ) 
! 1 
| | | | | | | Optional | 
| | | | | | i | 
ж-------- EET жет TINE. i el 
| | | loptional | | | 
| | | 521 i i | | 
| | | | | | | | 
| | | | | {Optional i | 
келен МУНИ = —————————7 —— + 
| ый - aide — G | | | {Optional i 
кес! UR r eaea ЧО o P Б] 
1 F 1 d Required {Optional 
aan сс и | tag "T | (either this! 
| | | | | | lor FILE=) | 
i | | ! | | 1( 7 aove) | 


а-н 


HINTS AND SOLUTIONS 
TO EXERCISES 


CHAPTER 1 


"lie No hint 


2s Certain data and control paths are required for all instructions 
e.g. between control and memory. Failure of these paths will cause all 
instructions to fail. For cthers, do the following: make a table of 
instructions (copy from Table A3-2). For each instruction, 115% the 
control and data paths required for its execution, e.g. the Store into 
Memory instruction needs the control path between the Control and 
Arithmetic Units апа the data paths between the Arithmetic Unit and 


Memory. Make similar lists for all the others. From this, the answer 
would be easy. 


3. For Exercises 3 to 8, 


consult the local chapter of the Computer 
Society of India for good so 


urces of information (books or journals). 


9. The instruction will cause control to kee, 
014 to itself in a never-ending loop, 
will, in a Sense, be equivalent to a St 


р jumping from location 
So nothing will happen; this 
op instruction. 


10. Hint given already in the exercise. 
11. * Gp Use, in location 133; JPP 133 (Jump “if positive to 


location 133) instruction; or, alternately, the following 
Sequence of instructions from location 130 onwards: 


130 JPP 132 Jump on positive to 132 

137 STP == Stop 

133 PRT 200 Read out contents of location 200 
and print on teletype 

133 JMP 123 Unconditional jump to 123 


(ii) We must maintain a location (sa 


y 203) to accumulate 
running total 


ст 
5 
(b 


Insert instructions to do the following after 129 
Read contents of location 203 

Add contents of location 200 

Store back in location 203 

Read contents of location 203 and print on teletype 
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(111) Insert instructions to do the following 
(earlier than 123) 


Read first number on tape (this will be a 'опе'). 
Store іп location 203 (this will be the counter). 
Store in location 204 (this will be the increment). 


(after 129) 

Read location 203 and print со 
Add contents of 204. 

Store back incremented value b 


ntents on teletype. 
ack in location 203. 
consequential changes in the other 


addresses of jump instructions will have to be 
hich we desire a jump is now at a 


Also make 
instructions (e.g. 
changed if the instruction to wi 
different location). 


e or hints given in exercise itself. 


12. (i) to (iii) Simpl 

(iv) Subtract B from A repeatedly. Keép count C of the number of 

subtraotions. Continue till the sign of the remainder R 

becomes different from that of A. This indicates that you 

have made one more subtraction than necessary. So add B 

to the remainder R and subtract ore from the count C. 

R the remainder. Use memory locations 
s as needed. 


once 
C is the quotient and 
and conditional jump instruction 


CHAPTER 2 


1. Hint given in exercise. 


umber n by integer k 


2. Brute Force Method: Divide the given n 
ero in any сазе 


starting from 1 going upwards. Stop when remainder is 2 


or when к reaches the square root of n. 
Check a book on numerical analysis for a better algorithm. 


3. Proceed using Newton's algorithm (Sec. 2.2.1) to find the HCF of X 

jas Y. However, the remainder C will not be zero, due to X and Y being 

FE rig sank eal Check instead if C<L where Lisa prespecified error 
it. Repeat similarly with Z and the HCF of X and Y. 


Ң and 5, straightforward. 
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6. It can be done. Consult a book on sorting techniques. To keep the 


problem simple, consider the cards to be all of one colour in the 
first instance, 


CHAPTER 3 


1. Straight forward. 


?. Only the ten digits are represented by single punch codes. 
Letters and special symbols have two or three punches per column, The 
columns reserved for statement numbers сап have only single punches. 
(How about the continuation column? Using similar arguments, check all 
columns, one by one.) 


3. Take a list of FORTRAN characters and check it against a key 
board of a сага punch (or even a computer terminal). 


The eleventh and twelfth rows are right on top of the card; check 
Fig. 3.1. 


4... (i) Input or READ statements to give a value to B. 
(ii) -A WRITE statement to give the result out. 
(iii) A STOP statement (this is not mandatory in some systems). 
(iv) An END statement (and, possibly, some computation). 


5% The proper order is READ, compute, WRITE, STOP and END. 


CHAPTER 4 
1. (i) 0 Yes. Integer constant. 
(ii) 1/4 Yes. Integer expression. 
(iii) 2.5/6 Yes, but mixed mode expression, 
(iv) "100 Yes. Integer constant, 
(v) -4,30С No. Commas are not allowed. Either -4300 
or 6H-4,300 (HOLLERITH constant), 
(vi) 3*4/7 Yes. Integer expression. 
(vii) 2.000 Yes. Real constant. 
(viii) +35 Yes. Integer constant. 
(ix) 2E6 Yes. Real constant (mantissa and exponent), 
(x) 4, 6E-7 Yes. Real constant (mantissa апа exponent). 
(xi) 0.0 Yes. Real constant (decimal fraction), 
(xii) 23.üE6.5 No. Exponent cannot have decimal point, 


(xiii) 4D Yes. Double precision constart. 


(xiv) | 4HCONSTANT 
(xv) 2 H12 
(xvi) 6H 2%4/5 
(xvii) TRUE 
(xviii) (.FALSE.) 
2. а) 1.23-E12 
(ii) 1.23E-12 
3. (i) LMN//-3 
(11) 6##2 
(iii)  N#*H 
(iv) 10.TIMES 
(у) 2М+1//ММ+1 
(vi) .293 E-7-4 
(vii) 3*(3,3) 
(viii) A+-B 
(ix) 2./4H123 
(x) 2./9123 
ћ. (4) A®(B+C#( (D-E+F 
(ii) вес 
5. Straightforward. 
6. One if I = 
I<J and J/I = 0 if J<I.) 
T. Straightforward. 
8. 


in both сазез, so the уа 


9. The fractional part i 
Magnitude in each сазе. 


J and zero otherwise. 


Straightforward. The memory 
lues wil 
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No. It should be 8HCONSTANT. 

yes. HOLLERITH constant. 

Yes. The number of characters is correct, 
including the space. 
No. Either 4HTRUE 
(BOOLEAN) 

yes. Logical expression. 


(HOLLERITH) or .TRUE. 


Expression where E12 is a REAL variable. 
REAL constant: mantissa and exponent type. 


LMN/(-3) 

Correct. 

Correct. 

10# (TIMES) 

2#М+1 /НМ+1 

correct. .293E-T is а REAL constant, bu! 

this is 8 mixed expression. 

Correct. (3,3) is а COMPLEX 

constant. 

Wrong. Two adjacent signs. Should be 

A+(-B). 

Wrong. HOLLERITH constant cannot be 

used as operand. 
Correct. H123 is a REAL variable. 

) a®(B4C)#((D-E+F)) p*(B+C)*((D-E)+F) 
A*(B+C*((D-E+F) А*(В+С#( (р-Е+Е))) 
Ambiguous; will be interpreted as 
A**(BÉRC) ог (A®*B)**C depending on 
the compiler. 

ОЗЕ 


(For integer I and J, I/J = 


contents are interpreted differently 
1 be vastly different. 


s lost due to truncation. Calculate the 
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10. The magnitude of the maximum error in the mantissa will be the 
same in each case (0.5 times the least significant digit). This, 
however, gets multiplied by an appropriate power of 10, depending on 
the value of the exponent. Hence, when the value of the exponent 
increases by 1, the magnitude of the error increases by a factor of 
ten. The plot will have a stair-case Shape when plotted on a log-log 


Scale. The magnitude of the error will be astoundingly high when the 
exponent has a high value. 


11. The exponents will have to be made equal before the numbers 
can be added. This is done by shifting the decimal point in one of the 
numbers right or left and manipulating the exponent value (so that the 
magnitude of the number does not change). 


12 and 13. Straightforward. 
14. None. 


ТЕ Gb) А = ІШ -2 
(ii) Mixed mode. Should be A = 2./3. -4, 
(441) А s-(073- 4) 
(x) АҢ = A*Y 


16. They аге. 


17. (1) A .NE. B .NOT. (B .EQ. A) 
(ii) A .GT. B B .LT. A 
(5.1992 ACD B B «Gr. A 
(iv) .NOT. A Not possible to eliminate .NOT. 
(v) АЛЕ. "В В .СЕ. А 


18. No corrections are required. Truth tables are possible only 
where all the operands are type LOGICAL; i.e. (i) and (iii), 


19. Expressions in (i) and (iii) have different values. 


20. (iii) is likely to be fastest because it involves no 
multiplication and only one function calculation. (ii) will be 
the slowest; it needs TANF(X) to be computed twice (unless the 
compiler is intellegent and eliminates one of them). 


21. The same variable cannot be declared as belonging to two or more 
types. 
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CHAPTER 5 
1. and 2. Straightforward. 


3. The variable concerned has to be declared TYPE complexe A complex 
"M. is of the form (P,Q) where P and Q are both real numberse the 
eld specification should correspondingly contain two subfield 
км p separated by a comma and enclosed in brackets: @•8• (Е10.3. 
1.8). Both subfields have to be compatible with TYPE real variables; 
i.e. they have to be Р, EorG specifiers. 


4,  Straightforward. 


5. Тһе following аге suggested: 
(i)  H20 (maximum length of name, 
Cia) 51 (logical: male or female) 
(iii) I2 (two digits) 
(iv) Е8.2 (maximum 99999.00) 
(у) I1 (maximum nine 1) 
(vi) I6 (six digits) 


20 characters) 


th adds UP to only 39, they can all be 


Since the total field wid 
rd (ieee card) 


accommodated in a single reco 


6. Straightforward. 


T. (1) Already explained in texte 
(ii) All constants will become typ? integer and the expression 
will be evaluate to the rules of integer 


arithmetic. 


d according 


8. This requires multiplication by a conversion factor (180 degrees 


- PI radians). 


9. Straightforward. 
The two FORMAT 


10, All the existing labels аге superfluouse 


statements need labels 20 and 40 respectively. 


rmissible: in E format, w has to be 


11. In the second, £10.8 is not pe 
at least 1+7 

In the third and fourth, there is no provision for verti 
spacing specification, this can create problems in output. 

In the fourth, the width of the Hollerith field should be 15» 


са1 
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10. Only FORMAT lists where the fields are compatible can be used in 
replacement, The second in the above list can be used for input in the 
program of Exercise 11. 

The last can be used in place of the existing output statement, 

The best specifications to use for the output of A and B would be 
the ones used to input them, 

How many significant digits will there be in a number read in 
using the E12.4 format? How many digits in the exponent? We need to 
print A + SRRT(B). SQRT(B) has to have the same number of significant 
digits; its exponent has to have at least half the significant 
digits as that of В. The magnitude of A + SQRT(B) will depend on the 
magnitude of A as well. 


12. Corrected version: 
TYPE INTEGER X 
READ (5,6) X,Y,Z 
6 FORMAT (ТЗ, БХ, F10.2,G14.0) 
X = Ү-7%%2/3, 
WRITE (6,5) X,Y,Z 
5 FORMAT (X, I3, 3X, 2F6.2) 


STOP 7 
END 
CHAPTER 6 
1. (4) IF ((A**3 -B) „СТ. 0) STOP (Logical IF, so expression 
has to be of type LOGICAL) 
(44) Logical IF cannot have three branches, 
(iii) GO TO Is (2,3,4,7,4) 
(iv) GO TO (4,3,4,3,7),I or GO TO I, (4,3,4,3,7) 
(v) ASSIGN 4732 TO X (X has to be type INTEGER) 
(vi) Initial value of DO range exceeds upper limit, 


(vii and Expressions not permitted for initial value, 


upper 
viii) limit and increment (some compilers permit this). 


(ix) DO 20 IIIIII = 444444, KKKKK, 4 

(x) Same as (vii) ч 

(х1) Variable (М) not permitted as range termination label 
(xii) IF branch points to itself. (This is bad programming, 


but may make sense in a multiprogramming environment. ) 


Sv. AE) Ј.= I is superfluous, 
Delete commma after 1 in DO loop. (This is permitted in 
some compilers. ) 
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DO loop is also poirtless because it merely increments 
I to a fixed value ana prints it out. This could have 
been done by a Single arithmetic statement. 

DO variable value cannot be printed (or used) after 
normal termination of loop. 


(ii) Some comments of (i) apply here as well.. 


t be used as upper limit. 


| АК, a REAL variable, canno 
(iii) Loup variable I being decremented within loop. Loop 
cannot terminate. 


(iv) K, upper limit of range, being incremented within 


loop; loop will never terminate. 
Also, loop variable K being printed after termination 


of loop. Its value is not uniquely defined. 


3. Straightforward. 


ц. Introduce variable ISN to be serial number. Set this to 1 before 
reading input data. Modify WRITE statements preceding the FORMAT 
statements 20, 30 and 40 to print the serial number (by inserting ISN, 
before NAME). Modify FORMAT statements accordingly (by inserting, say, 


I4 after 1Hb)s 


5. Straightforward. 


tems have to be printed. The rest 


6. You will have to know how many i 
is simple. 

as the digits I, J, K, L and M. Its value is 
10000*1+1000J+!00K+10L+M, say М1. If we multiply bY 4, the number 
reverses itself, so the value will be 10000M41000L« 100410241, say 
N2. The condition to check for is 81% = №. Construct а nested DO 
loop, to a depth of 5, with I, J, K, L and M as the loop variables, 
going between the limits I - oing between 0 vo 
9 (guess why). In the innermost loop, compu d check if 
the condition N1*4 .EQ. N2 is satisfied. If it is, jump out of the 
loop and print the number 'IJKLMN'. (This causes the computation to 
stop as soon as the first such number is printed. You may modify the 
program to print all numbers satisfying the condition.) 

As for the time taken, what is the maximum number of iterations of the 
innermost loop? It could be 90000, since the first digit can take 9 
eo ез and all other digits 10 values each. However, you do not need 
© make more than 15000 trials because, if you do not find the number 
within that range, it does not exist at all (4*N1 will not be a 
five digit number if N1>24999). Now you сап compute the maximum 


T. Assume the number h 
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number of loop traverses and (approximately) the time taken for each 
traverse. 

Think, will it help to set the upper limit of I to 2 instead of 
9? (Ans: Only if you do not know whether there is a solution to the 
problém. If there is a Solution, you will find it before you get to 
the value 25000, so it is immaterial whether the upper limit for I is 
set at 20r 9. If, however, there is more than one solution, it would 
be best to set the limit at 2 and not terminate after finding the 
first solution) 

Can you save on computation time further? Yes. Firstly, you need 
БО only upto 25000, so J can Stop at ! if I - 2. Secondly, you can 
Save computations in the innermost loop, say by writing a single 
expression for N2-4*N1 in terms of I, J, K, L and M (and checking this 


for zero) instead of writing two separate expressions for N1 and N2 
and checking for equality. 


8. Hint given in exercise. 


CHAPTER 7 

1. A(I,J,K) Correct 
B(1,2-J,K«3) B(1,J-2,K43) 
C(A,K/2=3,4) C(A,2*K-3, 4) 
M(34K*2) M(K*243) 
L(2*K-1, 3) Correct 
P(K*(-1)43) P(K+3) 
Q(I,J,K,L) Correct 


(newer compilers accept all these) 


2. (i) DIMENSION A(2*X-4), B(101, 3) 


A(2*X-4) is invalid; uses 
expression in subscript bound, 
Remove outermost brackets. 
Retain only array variables with 
Subscript bound specificati- 5: 
delete A апа М ог ада “sub: 
bounds for them. 


(ii) REAL (1,4,К(50,40)) 
DIMENSION А,М,К(40,30) 


DOUBLE PRECISION J1 
EQUIVALENCE 1,41 I. and J1 are 
TYPE. 
(iii) EQUIVALENCE (A(L), B(2), C). 
1 (А(3), 8(6)) 


Delete dot. Also the two equivalences between А апа В may conflict. 


not of the same 


Hints and Solutions to Exercises 367 


3. А11 straightforwars. 


lh. Straightforward. 
T 
о чао а зацаге аггау А of dimensionality N. Assume N is 
9111 noh entral element is A(I,d) where 1= Ј = N+1/2. This element 
üse Gee move, All others will move clock-wise around it. So let us 
any s as the reference pointe s also draw on paper a sample 
» say 5 by 5in size, to visualize the following argument, 
PEL V A(I,J) will be on one = J and on the 
agonal if I+J = N+1. Тһе diagonals divide the array into four 


triangles, 


e All the elements in t 
ments at the left ) are de 
(I LE. J) SAND. ((I+d)oLEeN) 
These will have to move to the right (ieee J has to be 
incremented by 1). 
All the elements in the right triangle, 
elements above) are. defined by the property that 
(I LT. J) .AND. ((1+9) 67.8). 
These һауе to move down (i.e. Tis to be incremented by 1) 
All elements in the bottom triangle (including the diagonal 


elements to the right) are operty that 
(I .GE. J) .AND. ((I+d) .бТ. (ї+1)) 
ented by 


These have to move to the left (i.e. 


he top triangle (including the diagonal 


fined by the property that 


including the diagonal 


onal 


De 
(including the diag 


ne left triangle 
d by the property that 


„ЬЕ. №1) 
ре decremented by 1» 
2 deep, to check for each of 


te action. Logical IFS ean be 


All elements in t 
elements below) are define 
(I GT. J) AND. ((1+9) 

These have to move up, ieee I has to 


You can construct a nested LO 100P» 


the conditions and to take the appropria 


used. 
Remember, however, not to shift the array into itself; you will 
destroy elements that waye You have to сору the array into another one 
and then recopy back into the original array, while shifting 

en the array size is even?) 


(Check, will the same method hold wh 


array and evolve an algorithm for 


ample 
f the above example. 


6. Construct on paper а $ 
on the lines о 


doing what needs to be done» 


which is more elegante 
BED = M##2, J = 2#LëM 


is satisfied for all I = L 
L апа M being any integerse Form two nested 


Те Try the following 
The required condition 
and К = 1##2 + М%%2, 
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loops: to vary L and M between 1 and SQRT(N-1). The inner loop does 
nothing if L=M and terminates if К exceeds N. Print I, J, and K in 
each case, 


8, Find the minimum of all the elements and put it as the first; find 
the minimum of the remaining ones and put is as the second and so on, 


9. Convert the algorithm of Exercise 2,2 into a program, 


192: (4) Correct as it is, 

(ii) Correct as it is, 

(iii) WRITE (6,25) (VECTOR(K), К = 1,14) 

(iv) I ought to be a subscript in the arrays to be printed. А 
possible corrected version is 
WRITE (6,30) (X, K, ((Ү(І,Ј),Ј = 1,16), I = 1,24)) 

(v) WRITE (6,74) (((A(I,J,K), I = 1,5), B(J,K), J = 1,12) 
1 С(К) К = 1,5) 


11. Express the function to be computed as a power series, 

The central part of the program has to be a loop that computes the nth 
term in the series expansion in its nth traverse and adds it to a 
partial sum, 

(Rather than recompute each term ab initio, you may save computing 
time by obtaining it from the previous one, This, however, increases 
truncation and round off errors, and may not be advisable.) 

In each loop, compute Similarly the residual error which would occur 
if the remaining terms were to be neglected, 

If the residual error is less than 0.000001, the loop can be 


terminated and the partial sum will be the value of the function, If 
not, the iteration has to continue, 


12. Straightforward, 


13. It is known that only E, F, G and I formats have been used and 
that the format used is the same for all the cards, A visual 
examination of a listing of the cards will indicate the formats used, 
Data being input under the E format will contain the letter E 
somewhere, Similarly, a decimal point will occur for data being read 
in the F ог б formats, There will be only digits in the I format, The 
field limits can also be similarly surmised by looking at the 
printout. Based on this knowledge, one can write a program to read the 
input data and store it, one array for each variable, A11 arrays will 
be of the same size, The data can now be sorted, (Exchange elements I 
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a d : "== ——— -— "я ti 
nd J in all arrays if, in any array X, X(i)>X(J) but I4J. When the 


5 i 5 РЕТ 
orting is complete, the original order will have been restored.) 


CHAPTER 8 


1. Straightforward. 
2. ig i 
The following is an indicative (but not a complete) list 


(i) Equal to sign: (а) Statement label field, (b) first 
column of the statement field (unless it is a continuation 

" card) 
(ii) Number: the first column o 
it is a continuation card), ete. 


f the statement field (unless 


It would be instructive to make a table as follows 
Characters not permitted 


Column Characters permitted 
under various circumstances 


num А $ 
рег under various circumstances 


............. мерт. р: 


P This is similar in content to the Exercise 72222, 10 has simply to 
е put in subroutine form. 


Ң. Use the facility of EXTERNAL function discussed in Sec. 8. 1.2. 


5. (i) В(1), meaning an array of one element, does not make sense 
in a COMMON statement (though it is not prohibited). Also, 
A and B cannot be doubly defined, both in unlabelled and 
" labelled COMMON areas (and that too, differently). 
(ii) The EQUIVALENCE statement has to be on a separate line. 
A and L which occur in the COMMON statement cannot be 


put in an EQUIVALENCE statement. 


also 
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PROGRAMMING IN FORTRAN 

Second Edition i | 
provides a lucid exposition of the various aspects of FORTRAN programming. 
Basic features of both FORTRAN IV and FORTRAN 77 have been explained in 
detail and amply illustrated with suitable examples. The book would be of 


immense use in developing an elegant programming style and writing efficient 
programs in FORTRAN. 


Review Extract 


“Тһе first two chapters lucidly explain the basic features of computers and, more 
importantly, the concept of algorithms. The detailed step-by-step illustrations 


should make it extremely easy for a student to understand the process of 
preparing flow charts. 


The next six chapters describe the details of FORTRAN IV. It isthe presentation in 


this section that makes the book not merely a:good book on FORTRAN, but an 
excellent textbook. 


The next chapter on Errors, Efficiency and Style' supplies many valuable hints 
and guidelines, which should go a long way towards making the student a 
competent programmer. The next chapter on features of FORTRAN 77 is also а 
very worthwhile addition. 

Some of the detailed appendices make the book stand out... The descriptions of 
assembly language, process of compilation etc, not normally found in 
elementary textbooks, are concise, yet clear. The appendix on Numerical 
Analysis, especially with its many solved examples, would undoubtedly make 
the Student familiar with many techniques crucial for writing efficient and 
reliable programs for scientific and technical computations. 

The numerous exercises at the end of each chapter are well designed... Hints 
and answers supplied should make the book ideal for self-study......" 
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